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ABSTRACT 


This  report  is  an  engineering  guide  to  the  use  of  the  Dyer  method  of  manual 
computation  and  to  several  computer  programs  for  determining  turbulence-induced 
vibration  and  radiation  of  finite  plates  in  air  and  in  water.  Both  simple  and  clamp¬ 
ed  boundary  conditions  are  treated.  The  Dyer  method  and  the  computer  programs 
are  presented  in  a  series  of  appendixes: 

A.  Bolt  Beranek  and  Newman  Manual  Method  (Dyer) 

B.  Boeing  Program  I  (Masestrello) 

C.  Electric  Boa*  Program  (Izzo) 

D.  Underwater  Sound  Laboratory  Program  (Strawderman) 

E.  Boeing  Program  II-  Finite  Element  (Jacobs  and  Lagerquist) 

The  documentation  is  intended  to  facilitate  the  performance  of  flow-induced 
vibroacoustic  computations  as  well  as  to  furnish  the  groundwork  for  future  research. 

It  should  also  act  as  a  theoretical  guide  for  experimentalists.  In  the  broader  view, 
the  documentation  represents  the  initial  steps  of  an  effort  to  use  computer  pro¬ 
grams  to  bridge  the  gap  between  vibroacoustic  research  results  and  design  needs 
for  structures  that  are  subject  to  excitation  by  turbulence.  Research  tending  to  im¬ 
prove  and  extend  the  present  program  is  recommended. 

ADMINISTRATIVE  INFORMATION 

This  study  was  sponsored  by  the  Naval  Ship  Systems  Command  (NAVSHIPS)  Code  037. 
Funding  was  provided  by  NAVSHIPS  0311  under  Subproject  S-R003  10  01,  Task  11701. 

INTRODUCTION 

For  several  years,  the  Naval  Ship  Research  and  Development  Center  (NSRDC)  has  been 
corcemed  with  computing  the  vibration  and  acoustic  radiation  of  plates  excited  by  fully  de¬ 
veloped  turbulence.  As  indicated  in  Reference  1,  the  naval  need  for  achieving  a.  curate  meth¬ 
ods  of  computation  exceeds  the  current  state  of  the  art  for  performing  such  computations.* 
Accurate  computational  methods  for  plates  can  provide  a  useful  foundation  for  extension  to 
more  complex  naval  structures,  e.g.,  ribbed  sonar  domes. 

It  is  of  interest  to  document  the  flow-induced  vibroacoustic  digital  computer  solutions 
that  have  been  the  subject  of  investigation  by  researchers  outside  NSRDC  and  that  are  ger¬ 
mane  to  naval  needs.  These  constitute  a  convenient  reference  for  application  and  a  base  for 


•References  are  listed  on  page  313.  Technical  notes  are  ordinarily  not  used  as  formal  references  in  NSRDC  re¬ 
ports.  However,  Reference  1  was  authorized  for  inclusion  by  the  Head,  Department  of  Acoustics  and  Vibration 
and  is  releasable  on  request  to  him.  This  review  of  the  state  of  the  art  shows  that  accurate  methods  of  predic¬ 
tion  have  not  yet  been  confirmed  because  of  the  lack  of  experimental  data,  particularly  for  plates  in  weter.  The 
rationale  motivating  the  present  study  is  discussed  and  corresponding  experimental  studies  are  recommended. 
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further  development.  Accordingly,  the  primary  objective  of  this  report  is  to  present  a  docu¬ 
mentation  that  provides 

1.  Theoretical  methods  of  computation  for  immediate  application  by  researchers  who  are 
interested  in  comparing  theory  and  experiment,  observing  trends,  etc. 

2.  Theoretical  methods  of  computation  for  use  as  a  guide  in  designing  experiments. 

3.  Computational  frameworks  that  can  be  modified  and  extended  through  additional  re¬ 
search  to  meet  naval  needs  in  an  increasingly  realistic  manner. 

4.  Initial  steps  of  an  effort  to  use  computer  programs  to  bridge  the  gap  between  vibro- 
acoustic  research  results  and  design  needs  for  structures  that  are  subject  to  excitation  by 
turbulence. 

The  documentation  is  essentially  a  user’s  guide  to  the  Dyer  method  of  manual  computa¬ 
tion  and  to  several  digital  computer  programs  for  determining  turbulence-induced  vibration  and 
radiation  of  finite  plates.  Simple  and  clamped  boundary  conditions  are  treated,  and  the  fluid 
medium  surrounding  a  plate  is  either  air  or  water.  The  following  titles  identify  the  manual 
method  and  the  computer  programs  treated  and  indicate  their  location  in  the  report: 

Appendix  A  -  Bolt  Beranek  and  Newman  Manual  Method  (Dyer) 

Appendix  B  -  Boeing  Program  I  (Maestrello) 

Appendix  C  -  Electric  Boat  Program  (Izzo) 

Appendix  D  -  Underwater  Sound  Laboratory  Program  (Strawderman) 

Appendix  E  -  Boeing  Program  II  -  Finite  Element  -  (Jacobs  and  Lagerquist) 

Each  appendix  includes  the  appropriate  notation,  the  mathematical  development  of  the 
equations  underlying  the  program,  descriptions  of  input  and  output  data  and  of  units,  computer 
program  listings,  the  time  required  to  run  particular  computations,  flow  charts  and  operations 
and  rules  of  the  computer  program.  Methods  are  also  presented  for  determining  computer  pro¬ 
gram  input  data  from  either  experimental  or  analytical  results.  Test  runs  are  included  to  verify 
the  results  (published  response  curves)  of  the  original  developers  of  the  programs  and  hence 
to  indicate  the  successful  operation  of  the  programs  at  NSRDC. 

The  physical  foundations  on  which  the  development  of  the  equations  rest  are  no'  in¬ 
cluded.  The  references  cited  in  the  present  report  direct  the  interested  reader  to  appropriate 
literature. 

The  report  has  been  organized  to  meet  the  needs  of  the  program  user. 

DISCUSSION  AND  RECOMMENDATIONS 

For  convenience,  the  salient  features  of  the  documentation  are  summarized  in  Table  1 
which  identifies  and  compares  the  various  methods.  This  table  makes  it  easy  for  the  potential 
user  to  identify  the  various  features  of  a  program  that  are  of  interest  to  him  and  to  select  the 
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TABLK  1 
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program  that  most  nearly  meets  his  needs.  Of  course  evaluation  of  the  capability  of  a  pro¬ 
gram  for  making  accurate  predictions  with  respect  to  naval  problems  requires  comparison  be¬ 
tween  thoory  and  actual  experiments  in  water. 

Based  on  an  evaluation  of  the  computer  program  presented  herein  as  well  as  the  inves¬ 
tigation  made  in  Reference  1,  the  following  recommendations  are  made: 

1.  Immediate  application  should  be  made  of  the  programs  considered  to  be  most  relevant 
to  naval  neods.  A  range  of  geometric,  structural,  and  flow  data  representing  naval  plating  un¬ 
der  actual  operating  (or  scaled)  conditions  should  be  submitted  as  input  to  the  programs.  The 
results  of  a  variation  in  parameters  should  be  analyzed  and  evaluated.  Comparison  of  such 
results  from  different  programs  may  yield  meaningful  qualitative  information  or  trends.  The 
conclusions  drawn  from  such  trends  may  provide  insight  into  the  physical  nature  of  the  prob¬ 
lem  and/or  act  as  a  guide  to  the  design  of  associated  experiments.  Moreover,  when  compared 
with  corresponding  experimental  results,  the  theoretical  results  will  yield  quantitative  infor¬ 
mation  on  the  degree  of  accuracy  of  the  methods  of  computation.  Thus,  the  theory  in  conjunc¬ 
tion  with  the  experimental  results  may  lead  either  to  modification  of  the  existing  analysis  or 
to  determination  of  correction  factors  for  the  theoretical  results.  It  may  also  lead  to  determi¬ 
nation  of  scaling  factors  for  different  geometries  and  media. 

2.  The  methods  considered  to  be  most  useful  for  solving  naval  problems  should  be  modi¬ 
fied  and  extended  to  include  improvements  that  enable  incorporation  of  the  following  param¬ 
eters,  structures,  and  effects: 

a.  Radiation  resistance 

b.  Internal  damping 

c.  Fluid  loading  (added  0"  virtual  mass) 

d.  Shear  and  rotary  inertia  (thick  plate  theory) 

o.  Convection  velocity 

f.  Ribs 

g.  Rough  plates,  protuberances,  openings,  and  indentations 

h.  Orthotropic  plates  and  inhomogeneous  plates 

i.  Combination  of  plate  materials  (composite  plates) 

j.  Complex  structures 

k.  Boundary  conditions  (other  than  fixed  or  simply  supported) 

l.  Cross-modal  coupling 

m.  Surface  curvature  and  fairness 

n.  Reverberant  and  non^everberant  (anechoic)  media 

Improvements  in  the  theory  should  result  in  the  evolution  of  design  data  for  selecting 
plate  materials  anJ  geometry  and  structural  arrangements  for  sonar  domes  and  submarine  hulls 
that  will  have  minimum  vibratory  and  acoustic  response  to  turbulence  excitation.  In  particu¬ 
lar,  design  charts  of  vibroaooustic  response  as  a  function  of  structural  parameters  (properties 
and  geometry)  can  be  obtained  by  using  a  computer.  These  charts  can  be  useful  in  estab¬ 
lishing  acoustical  design  criteria. 
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CONCLUSION 


The  Dyer  manual  method  and  several  computer  programs  for  determining  fully  developed 
turbulence-induced  vibration  and  radiation  of  finite  plates  have  been  documented.  The  treat¬ 
ments  include  simple  and  clamped  boundaries,  and  the  environment  of  the  plates  is  either  air 
or  water.  Methods  have  also  been  given  for  determining  computer  input  data  from  either  exper¬ 
imental  results  or  analysis.  The  methods  are  useful  for  immediate  application  by  theoretical 
and  experimental  researchers  and  also  provide  a  basis  for  modification  and  extension  to  more 
accurate  programs  that  are  capable  of  meeting  naval  needs  in  an  increasingly  realistic  and 
practical  manner.  These  achievements  can  be  attained  (1)  through  a  better  understanding  of 
the  physical  foundations  of  the  problem  and  hence  an  improved  representation  of  the  models 
used  and  the  quantities  to  be  included  in  the  analyses,  (2)  through  improved  (new)  methods 
of  mathematical  analysis  as  well  as  practical  extension  of  presently  used  methods  of  analy¬ 
sis,  and  (3)  through  improvements  in  computer  programing  techniques  and  computer 
capabilities. 
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APPENDIX  A 

BOLT  BERANEK  AND  NEWMAN  MANUAL  METHOD  (DYER) 

APPENDIX  A1  -  MATHEMATICAL  ANALYSIS 

APPENDIX  A2  -  SAMPLE  PROBLEM 

APPENDIX  A3  -  METHOD  FOR  DETERMINING  INPUT  DATA 


NOTATION 


A 

^mn(r 0,CJ) 
a  mn 
a  mn 


B 


CB 

C 


CL 


d 

E 

F 


f 

fc 

fr^f2 


G(r,rQ,a>) 


9 


Correlation  area 
A  coefficient 

Total  modal  damping  due  to  structure  and  fluid  coupling 
hlodal  structural  damping,  positive  and  real 

Eh 3 

Bending  stiffness  equal  to  - 

12(1  -  a2) 

l  l 

Free  flexural  phase  velocity  for  a  thin  plate  equal  to  a?  ( B/M )*" 
Velocity  of  sound  in  fluid 

Longitudinal  bar  velocity  (17,000  ft/sec  in  steel  or  aluminum) 

A  coefficient 

Displacement  boundary  thickness 
Young’s  modulus 

Force  on  plate  due  to  external  and  sound  pressure  fields 
External  pressure  field 
Sound  coincidence  frequency 

Root-mean-square  and  mean-square  boundary -layer  pressure, 
respectively 

Green  function,  which  is  Fourier  transform  of  impulse  response  g 
Acceleration  due  to  gravity 


Impulse  response  of  plate 


Hmn 

m  n 

h 

'mnW 

k 

^ mn 

L 


L  ,L  ,L 

x'  y*  z 


A  coefficient 

Plate  thickness 
Time  correlation  integral 

Acoustic  wave  number  equal  to  co/c 

Wave  number  equal  to  \jk 2  -  F2n 

1  1 
Equal  to  —(LxLy)2 

Dimensions  of  plate  along  x,y,  and  2,  respectively,  as  shown  in 
Figure  1. 
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M 

M’ 

*1 

m2 

m ,  nor  p,  q  or  y,  v 

N(rmn),M(rmn) 

n(rmr) 

Pin 

Pin 


*i 

T 

S,ds 

s 

t 

om 

U(t  -  tQ) 

V(x,y,s,co) 

V 

m  n 

V 

vo 

>y»0 

w(r,t)  or  w(x,y,t) 
ws 

*,y,3 


Plate  structural  mass  per  unit  area 

Total  effective  mass  per  unit  area  of  plate  due  to  structure 
and  fluid  coupling 

Free-space  added  mass  per  unit  area 

Added  mass  per  unit  area  associated  with  coupling  to  sound 
waves  in  the  closed  liquid-filled  volume 

Mode  numbers 

Number  of  modes  included  up  to  wave  number  r  „  and 
average  number  of  modes  in  a  frequency  bandAi^,  respectively 

Modal  density 

Modal  mean-square  pressure  (a  time  averaged  quantity) 

Spatial  average  of  the  modal  mean-square  pressure  P^n 
(a  space-time  average  quantity) 

Equal  to  P^n  AN,  the  average  mean  square  pressure  for  all 
modes  AN  in  a  frequency  band  Av 

Sound  pressure  on  either  side  of  plate  at  2  =  L  z 

Represents  coordinate  position  x,y 
Area,  differential  area  equal  to  dxdy 
Radiation  efficiency 
Time 

Free  stream  velocity  of  fluid  external  to  plate 
Unit  step  function 

Equal  to  the  sum  of  the  plate  modal  velocities 
Plate  modal  velocity 

Mean  convection  speed  along  the  positive  x  direction 
Hydrodynamic  coincidence  speed 

Normal  mode  for  plate 

Displacement  of  neutral  plane  of  plate 
Weight  of  steel  plate  per  square  foot 

Coordinate  system  for  plate  (see  Figure  1) 

Plate  modal  impedance 


) 
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a 


m 


P 

Po 

Pi 


r 


mn 


Y ,H 

5 

V 

c 

>? 

6 


K 

v,  Av 
( 

P 

Ps 

a 


tmnM 


<0 


fc) 


c 


0) 


mn 


Convection  frequency  equal  to  mnv/L  and  interpreted  as  the 
frequency  at  which  the  turbulent  field  is  convected  past  a  length 
of  plate  equal  to  th6  m  modal  wavelength 

Damping  coefficient,  including  both  viscous  and  hysteretic 
damping 

Damping  coefficient,  representing  viscous  damping  of  plate 
structure  only 

Damping  coefficient,  representing  added  viscous  damping  due 
to  radiation  of  energy  in  the  fluid  away  from  plate 

Eigenvalue  for  plate,  taken  to  be  real 

Coordinate  system  for  plate  (see  Figure'2) 

Dirac  delta  function 
Kronecker  delta  function 
Positive  quantities 
Equals  x  -  x' 

Loss  factor 

Mean  statistical  lifetime  of  the  turbulent  state 
Measure  of  the  inverse  radius  of  the  turbulence  eddy 
Frequency  and  frequency  band,  respectively 
Equals  y  -  y' 

Fluid  density 
Density  of  plate  steel 

Poisson’s  ratio 
Equals  t  -  t ' 

Plate  eigenfunction 

Velocity  potential;  the  space  i  =  1  is  taken  to  be  free  from 
boundaries  except  at  z  =  L  z  and  the  space  i  =  2  is  a  closed 
space  with  reflective  boundaries 

Fourier  transform  of  ft t(x,y,z,t) 

Circular  frequency  of  vibration 

Sound  coincidence  circular  frequency  of  vibration 

Damped  resonance  frequency,  positive  and  real 


10 


«0  Characteristic  frequency 

<••••>  Symbols  for  time  average  operation 

*  Denotes  complex  conjugate 

?  Symbol  for  Fourier  transformation 


11 


APPENDIX  A1  -  MATHEMATICAL  ANALYSIS 

The  differential  equation  governing  displacement  of  a  thin  plate  due  to  turbulent  bound¬ 
ary  layer  pressure  excitation  on  the  plate  surface  (Figure  1)  is  2-4 

.  d2w  dw 

bvau>  +  m  — +  £  —  =  -/-(?!-  p2)  z=  l  =-^’(a:»y>0  (Al) 

dt2  dt  * 

The  solution  of  Equation  (Al)  is5 

w(r,i)=f  dtQ  f  dSQ  g(r,t/r0,tQ)  F(rQ,tQ)  (A2) 

where  g,  the  impulse  response  of  the  plate,  is  the  solution  to  5,6  the  equation 


BV4  g  +  —  +  p  -  -  S(x  -  xQ)  8(y  -  yQ)  8(2  -  30) 

dt2  dt 


(A3) 


The  normal  mode  \Vmn  for  the  plate,  which  has  the  form 

satisfies  the  homogeneous  equation  for  the  freely  vibrating  plate 


«d  '  "l)V4  Wmn  +  M 


d2Wn 

rr> 

In2 


<W 


+  Pq' 


dt 


=  0 


(A4) 


(A5) 


where  explicit  division  is  shown  of  the  damping  into  its  hysteretic  and  viscous  components. 

The  solution  to  the  nonhomogeneous  Equation  (Al)  will  be  found  by  obtaining  <7,  for 
inclusion  in  Equation  (A2),  in  terms  of  a  superposition  of  the  normal  modes  or  eigenfunctions, 
Equation  (A4),  satisfying  the  homogeneous  Equation  (A5). 

Substitution  of  Equation  (A4)  in  (A5)  yields  the  following  equation  for  the  eigenfunctions 

$  mn 


where 


lM(amn+  iumf  -  P0(amn  +  iUmnV 
fid  -  ir,) 


(A6a) 


(A6b) 


The  eigenvalue  Tmn  is  taken  to  be  a  real  quantity.  Multplying  both  sides  of  Equation  (A6b) 
»by  6(1  -  iy)  and  equating  imaginary  and  real  numbers,  we  obtain 
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-  Geometry  and  Coordinate  System  for 
Boundary  Layer  Excitation 


I 


“mn  2W  +  2A/o>_ 


2  4  ^ 

a>mn~  ^mn~  amn 


Equations  (A7)  and  (A8)  represent  two  simultaneous  equations  for  amn  and  wmn  as 

4 

functions  of  the  eigenvalues  1'  ,  which,  as  will  be  shown,  are  .determined  by  the  boundary 

m  n 

conditions.  Equation  (Al)  is  also  to  obey  these  conditions. 

The  Fourier  transform  pair  relating  the  impulse  response  g  to  the  Green  function  G  is 


If80 

jKM/’o^o)  =^;J  Gf(r>r0»<u)< 


(A9a) 


/OO  -  t0) 

?(r>t/ro>to)e  dt  (A9b) 

-OO 

Jdng\ 

Taking  Fourier  transforms  of  both  sides  of  Equation  (A3)*  and  noting  that  j ( - )-* 

\<W 

r  °°  —  iu)(t  —  t0) 

pnG(a>),  where  p  =  -  iu>,  and  I  8(t  -  tQ)  e  dt  -  1,  we  obtain 

OO 


74  g  -  r4  g  = 


-8(x  -  xQ)  8(y  -  y0) 

6(1  - 


(AlOa) 


where 


<u2  M  +  ia,  jS0 

6(1  -  *»?) 


(AlOb) 


Assume  that  the  Green  function  (?  can  be  expanded  in  terms  of  the  eigenfunctions  Then 


(r,r0,w)  A. 


(All) 


To  evaluate  the  coefficients  Amn,  substitute  Equation  (All)  in  (AlOa);  using  Equation 
(A6a),  multiply  by  and  integrate  over  S,  interchanging  the  summation  and  integral  and 
normalizing  the  eigenvalues  for  convenience  thus: 


8„, 


(A12) 


•Equation  (A3)  modified  to  show  explicit  division  of  damping  as  in  Equation  (A5). 
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where 


These  steps  give  (noting 
for  all  m,n) 


8  8  -  0 
mp  nq 


m  £  p  or  n  t  q 
m  *=  p,  n  =  q 

that  the  summation  is  dropped,  since  the  final  expression  is  true 


8  8  =1 
mp  nq 


(  1 

mn  =  E(1  -it,)  P4  _  J  4 
m  n 

Substituting  Equation  (A13)  in  (All),  wa  obtain 


i»(r>  ^mn(ro) 


r  -  r 

m  n 


(A18) 


(A14) 


Using  Equations  (A6b)  and  (AlOb),  it  can  be  shown  that 

1  1 _ 1 _ 

B(1  -  irj)  p4  _  p4  M(p  -  ia)  [p  -  (-  ia  +  /30/W )] 

where 

a  =*  gj  -  ia__ 

mn  m  n 

We  also  use  the  approximation,  which  ignores  the  hysteretic  term  /3Q/iW  =  2 amn  ;  see  Equa 
tion  (A7).  Fourier  transform  tables  7  can  now  be  used  to  find 


9( 


M/ro  1  ^ 


$ mn  (r)  $ mn^r o) 


n) 


m,  n 


<i)  M 
m  n 


°  sin<ymn(^-V  ^“*0> 


(A  15) 

where  the  unit  step  function  U(t  -  tQ)  corresponds  to  5(2  -  tQ)  the  excitation. 

For  a  finite  plate  immersed  in  a  low-density  fluid  (e.g.,  air),  the  radiation  reaction  on 
the  plate  may  be  neglected,  i.e.,  -px  -  p2  <<  /•  Thus,  for  zero  fluid  load,  Equation  (A2) 
becomes 


iv(r,g) 


[  dtQ  f  dS0  g(r,t/r0,tQ)  f(rQ,t0) 

oo 


The  cross  correlation  of  the  displacement  is8 


(A16) 
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ar(r,0  w*(r',t')>  =  f  dtQ  J  dt'  J  dSQ  f  dS' y(r,  t/rQ  tQ) 

-OO  “00  .<t  ^  S 


r0' ,  ^  )  </(r0  ,  ^  f*('o  >V>  >  (A17) 

whoro  Dyor  ui,ed  2-4 

</(M)  f*(r',t')>  =  A/2  8{£-  *r)  8(£)e-  M  (A18) 

V 


We  assume  simply  supported  boundaries  at  the  plate  edge 


d2w 

w  - - =  0  at  x  =  0,  L 

dx 2  * 


d2w 

w  =  - =  0  at  y  =  0,  Z,  (A19) 

-4.2  * 


The  eigenfunctions  (normalized  solutions  of  Equation  (A6a)  that  obey  Equation  (A19) ) 
and  the  corresponding  eigenvalues,  neglecting  the  effect  of  damping,  are9 


m  n  x  . 


nny 


(A20) 


r2 

mn 


(A21) 


Equations  (A18),  (A20),  and  (A21)  are  now  used  to  determine  the  plate  vibrations,  Equation 
(A17)  .  Equation  (A17)  involves  the  product  of  two  doubly  infinite  sums;  a  typical  term  is 
represented  by  the  cross  product  of  two  modes  (m,n)  and  (p,q) 


<.  w  ( r,l )  > 


mn^pq 


mn  p  q 


dSQ  ft mn  (ro)  ftpq(ro') 


V  ~ 


W‘'~  ‘o}  ~ 


*  sin  sin  (o)  8 (to  -  vTo)  *(fo)  (A22) 
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If  the  slope  of  the  plate  displacement  is  small  compared  to  unity,  then  Equation  (A22)  is 
essentially  the  correlation  of  the  plate  normal  displacement .  Because  of  the  delta  function 
s(€0)  =  %0  -  Vq),  the  yQ  ,  y0'  space  integrations  readily  yield  the  term  {Sn  L  )/2.  Fur- 

7  /r 


ther,  if  it  is  assumed  that  v6  «L x ,  the  xQ  ,  x'Q  integrations  yield  the  term  8mp  — -  cos«mr( 
where  ® 


mnv 


m  L 

Thus  the  result  for  the  spatial  integration  is 


(A23) 


X 

4 

(FJ 


yj  L  2 

"  c°s  <*m  rQ  8mo  8  ,  and  Equation  (A22)  may  now  be  written 


£ 


(Smp  —  cos  °mT0) 


<tc(r,t)  w*(r\  t')  >mrt' 


Af2tmn(')<f>pq('')  f* 


P  9 


u  „  „  „M2 

mn  pq 


r  <“o  r  k 


r  l^oh 

I  {o>“  7“J 


'  sin  “m*  <*  -  <0>  Sin  *0>  SP?  003  “mT0  (A24) 

To  facilitate  integration,  a  new  coordinate  system  y,  p  is  introduced,  where  y  and  P 
are  related  to  the  coordinates  tQ  ,  t'Q  as  follows 

V  =  (t'~  Q  -  (t  -  tc)  -  tq  -T 

H  =  (t' -  t'0)  +  (t  -  tQ)  (A25) 

The  differentials  of  the  y,  ft  and  tQ  ,  «0'  coordinate  systems  are  related  by  means  of  the 
Jacobian 

£fi!  J  J 

dn  I  2  2 

^  1  1 


Determination  of  the  limits  of  integration  for  p  and  y  is  intricate.  The  limits  are  deter¬ 
mined  from  construction  of  the  n,y  coordinate  system  as  shown  in  Figure  2.  The  figure  shows 
that  the  limits  are  ~n  to  n  for  y  and  0  to  «=  for  p. 

Then  (letting  j?  by  virtue  of  the  delta  functions)  Equation  (A24)  becomes 


4*  j.  o 


(A27) 


where  for  the  correlation  integral  /mn(r) 

r  a  _  IliiL] 

r°°  r  V-  L  a,nnil  6  J 

^jinW  =  I  dV-  I  e  cosa(y +r)  [cosa>mny-cos<umnpJ  ;  r>  0 

Jo  J~n 

(A28) 

Because  of  the  absolute  value  sign  in  the  integrand,  Equation  (A28)  must  be  integrated 
in  separate  regions,  depending  in  part  on  whether  y  is  greater  or  less  than  -r(i.e.,  rQ  >  0  or 
tq  <  0).  Figure  2  shows  the  regions  within  which  the  integral  must  be  evaluated.  Thus,  Equa¬ 
tion  (A28)  becomes 


lmn& 


C*l 


Dm!  r~  x  - r  i 

“T  .  L  0  Jr00  .  f"  .  L  e  J 


i  */.’ 


ij;  * 

Rr“]  l 

dy  e  j  e 


(A29) 


.  cos  a  (y  +r)  [cos  a>mn  y  -  cos  0)mn  p],  r>  0 

For  r<0,  r  is  replaced  by  -Tin  Equation  (A29). 

Equation  (A29)  is  laborious  to  evaluate  in  generality.  Dyer  gives  the  following  results 
for  lmn  (r)  for  special  cases.  The  results  are  not  directly  applicable  to  underwater  problems 
because  the  plate  is  assumed  to  be  immersed  in  a  low-density  fluid.  However,  with  modifi¬ 
cation,  they  can  be  used  for  underwater  problems. 


MEAN-SQUARE  RESPONSE 
AT  COINCIDENCE 

The  time  integral  is  now  specialized  to  r  «  0  as  well  as  am  **  <umn,  i.e. ,  v  =  v0  *=  CB 

r  1/2  ib\va 

[l  +^-~  1 j  J  where  vQ  is  the  hydrodynamic  coincidence  speed  and  CB  -  j  • 
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Figure  2  --  Coordinate  Systems  and  Regions  of  Integration  in  the  Time  Domain 


Note  to  Figure  2: 


y  -  (<■'-  <o>  ~(e~  V  *  ro  ~  r'  ro  “  <o  ■  V 


Hence  y  -  p  -  0  corresponds  to  «0'-  The  lino  corresponding  to  p  -  0  is  -  <0  -  t  which  has  the 


slope!-— — )  «  -  1.  The  line  corresponding  to  y  -  0  is  t’-  tg  <0  which  has  the  slopo  | — I  »  +  1. 

'  dt°  V  « 0  'rfVy-o 

/*o\  /rf<o\  /*m\ 

The  lines  are  perpendicular  because!-—  I  I--  )  -(-  1)(1)  «  -  1.  Since!  —  I-  +  1,1  —  I  -  -  1  the  positive 

V'°VoVl°(-o  'd<°/  '^o/ 

directions  are  those  shown  in  Figure  2.  When  p  »  r  -  t  -  <*-  (t'~  <q  )  +  (<  -  <0  )  then  tg  -  2t'~  <Q  represents  a 

<*o' 

line  with  intercepts  l.  -  2 lg  -  2f*  and  slope  —  ■  -  1. 


When  y  -  p  or  (<*-  t’)  -((-  t0)  -  (<'-  »  +  (<  -  <0)  then  lg  *  t.  Similarly  when  y  «  -  p  then  /0'  -  f' 

When  y  "  -  r,  r0  ■  0  or  lg  «  <'« 


«  ™  r  **  f  .<  >  0 

Consider  Region  AA'BB' 

y  "  -r-t)  ,ij>0 


y  +  p  «  2(t'-  )  or  y  «  -  u  +  2(C-  <q  )  or  -  r  -  ij  ■  -  (r  -  <)  +  2(0—  )  or  f( 


,  ,,  '(1*0 


a  negative  number. 


Hence  lg  >  t\  Figure  2  shows  that  >  C*  p  -  r-< ,  y  <  -  r  defines  the  rogion  AA'BB'.  Since  r0  “  y  +  r  then 
y  <  -  r  implies  rQ  <  0  for  this  region. 


Notes  for  Figure  2  (Continued) 


Consider  Notion  OA'ACC' 


#  (i»»r-f;»>0 

y  +  ij>  0 


y  -  p  +  2(C-  )  or  -  r  t  ij  -  -  ( r  -r)+  2(/'—  l')  or  t‘-  «  —  -- 


>  f',  p»r-r,y»-r  +  ij  corresponds  to 


region  OA'A  <g  <  <',  p  »  r  -  y  -  -r  +  ij  corresponds  to  region  OACC'.  Since  rQ  •  y  +  r  then  y  >  -  r  implies 
rQ  >  0  for  region  OA'ACC'. 


Consider  Region  ACDD' 


y  «  -  p  2(f'-  <q  ) ;  -r  ♦  ij  -  -r  -<  +  8(1'-  fj);  t’~  t' 


Jfr-r  +  r;  r  >  0 
|y--r+ij;  i)  >  0 

f  +  (  .  . 

— -  a  positive  number.  Hence  <  t  ,  p  -  r  +  i, 


y  -  -r  +  ij  define  the  region.  Since  r0  «  y  +  r  then  y  >  -  r  implies  rQ  >  0. 


Consider  Regions  (AD'D"+  AD"D'") 


p  •  r  +  < ;  <>  0 
y  -  -r  -  ij  ;  ij  >  0 


y  -  -p  ♦  2(< '-  );  <*-  f'  -  <*  <  <',p»r+f,y--r-ij  corresponds  to  region  AD'D".  Since  r0  -  y  +  r 

then  y  <  -  r  implies  r0  <  0.  If  <  r'  then  y  >  - p  (see  Figure  2).  If  lg  >  t’  then  y  <  -p  which  is  tn  invslid  con¬ 
dition  since  y  -  -p  is  the  lower  limit  in  the  integral,  Equation  (A2B),  corresponding  to  C'  -  t'.  Hence  region  AD' 
D*"  is  excluded  in  the  integration.  From  the  Figure  it  is  clear  that  the  limits  of  y  depend  on  the  upper  limits  of 

both  tQ  and  l' .  Tt  us  when  tQ  -  t  (a  limit  in  Equation  (A24)»  y  •  p  and  when  -  t '  ,  y  -  -p.  The  limits  of  p 
in  Equation  (A28)  are  obviously  from  0  to  ~  as  <„  and  t"  range  from  the  upper  limit  -  t,  tg  •  t'  to  the  lower 
limit  <0  «  -  tg  -  -  m  in  Equation  (A24).  That  is,  the  limits  are: 

-p  top  for  y 
0  to  ••  for  p 
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Then 


MEAN-SQUARE  RESPONSE 
BELOW  COINCIDENCE 

The  time  integral  is  specialized  to  r  =  0  as  well  as  «m  ««mn  (i.e. ,  v  «  t>0).  We  get 

2d2  f^L02  ~(amnO  + 1)  i  "I 

/  (0)  - - - +  - 

^  |,'aL^^0ma^  +  (flmn^  +  l)2  a mix0  J 

mn  mn  '  mn  1 

+  -i£i_r 

1  +« 2  e2  I 

m  i- 


a  0  +  1  a  „ 

mn  mn 

/+(aj  +  l)2 

n  '  mn  >  mn 


a  „  «w  „  „ 
m  m  n 


(A33) 


,  2$  1 

fmn(°)m~ - - - T*  am„0«l  (low  damping)  (A34) 

“mn  1  +  (02„d2 
m  n 


Ufl)  *  ~  1  +  7~7+  1-  :1 »  ‘-J  »1  (high  frequencies)  (A35) 

co2mnl  amn0  l+«202j 


DISPLACEMENT  CORRELATION 
BELOW  COINCIDENCE 

Here,  r+  0  ando«o>mnis  considered  . 

20  e  mn^  I  cos  (omnr 

lmn(T)a- - r— : - >  amn0  «1  (low  damping)  (A36a) 

amn  1  +  (o202 
m  n 

When  substituted  in  Equation  (A27)  the  results  give  the  cross  correlation  of  (if  r=  0)  mean- 
square  displacement.  For  the  latter  case  (r  =  0) 
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20  1 

/mn(0)  " - - >  amne  «  1  (Iow  damping)  (A36b) 

amn  1  4.  0,2  02 

m  n 

Now  the  radiation  of  boundary  layer  noise  into  the  closed  space  shown  in  Figure  1  is 
considered,  particularly  the  underwater  case.  The  sound  field  on  either  side  of  the  plate  is 
governed  by  the  nondissipative  linear  wave  equation  of  acoustics  for  a  homogeneous,  loss- 
and  source-free  medium  at  rest. 


2  1 

V  - -  =  0  (A37) 

c2  dt2 


Within  the  closed  space,  let  j  =  2.  The  Fourier  transform  V2(x,y,2,co)  = 
e~  ltotdt  of  the  velocity  potential  i p2  satisfies  the  Helmholtz  equation 


t2(x,y,z,t) 


V2  v2  +  k2v2  = 


d2  f  2 

- +  =0 

<9*2 


w2*!*  and  k  =  — . 

^  c 


(A38) 


Except  for  the  plate,  all  interior  surfaces  are  assumed  to  be  pressure  release  surfaces.  There¬ 
fore,  the  boundary  conditions  are 


¥2  =  0 


«  =  0,  L} 

y-o*  L , 


(A39) 


l  3  =  0 

Assume  a  general  solution  for  Equation  (A38)  in  the  form  of  normal  modes  p,q 


V2(x,y,z,<o) 


-  /  .  D „  „  cbn  (r)  sin  k„  „  z 
JmmmJ  P>  9  ^P>  9W  P>  9 
Pi  9 


(A40) 


it  will  be  shown  that  Equation  (A40)  satisfies  the  boundary  conditions  in  Equation 
(A39).  Substitution  of  Equation  (A20)  in  Equation  (A40)  and  the  resultant  equation  in  Equa¬ 
tion  (A38)  gives 


(A41) 


where  <6p(?  and  rp?  are  the  eigenfunctions  and  eigenvalues  given  in  Equations  (A20)  and 
(A21),  respectively. 
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Equation  (A37)  is  coupled  to  Equation  (Al)  by  the  continuity  condition  on  velocity 

dtjj2 
dz 


dw  d*l 
dl  dz 


1  *  L , 


z  «  L  . 


(A42) 


Hence 


dz 


z  -  L 


=  e  l0itdt 

2  nj  dt 


z  =  L , 


V (x,y,z,eo)  ~ V mn  ~  <l>mn 

m,n  m,  n 


(A43) 


where  H  6  is  the  plate  modal  velocity.  Using  Equation  (A40)  in  Equation  (A43) 

mn  ~  mn  r 


® mn  km  cos  k  L, 

mn  mn  z 


(A44) 


Substitution  of  Equations  (A44)  and  (A20)  in  Equation  (A40)  gives 


VaOMT,*,®)  *  " 


.  V. 


H 


mn 


mn  x  .  nny  , 

8jn~- —  sin  — —  sin  km  z 


—  ■  ✓  — — - uiu  r 


(A45) 


which  satisfies  the  boundary  conditions  Equation  (A39). 


d\l/JLx.y*z,t)  .  , 

..  .  2  ,  then  the  modal  pressure  transform  is 

Since  the  pressure  p2(x,y,z,t)  =  p  ft  ’ 


i  r  r  »  dxfr2  "I 

t [I  '-e~m‘d,L 

=  -i<o  p[y2(x,y,z,a>)]mn 

Using  these  equations  as  well  as  Equations  (A40),  (A43),  and  (A44),  the  plate  modal  imped¬ 
ance  (at  s  =  Lz)  is  obtained 


Pm»(a;’Sr’S’<a)  ~ia  mn  —icop 

Zmn(X^’Z’<0')  " - v - - - -  *  - “ - : - - -  k~-L-  =  ~t0>M 


mn 


2 

(A46) 
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From  Equations  (A41)  and  (A8)  as  well  as  the  definition  of  C s 


k2~k2-  r2  =  k2 


mn  mn 


w 


0)2 


Defining  a  sound  coincidence  frequency  co  =  wc,  corresponding  to  c  =  then 

k. 


10  c  I  /  w  mn 

'cm  =  +  —  VI - 

mn  -  « 


which  is  real  for  wmn  <u>c  and  imaginary  for  <omn>(o  e.  Equation  (A46)  then  yields 

p  tanh  I  kmL  I 

r  1  mn  z i 


Mr 


\Kn\ 


m  n  e 


(A47a) 


M 


2 


ten  km„L ,  .  <u  < 

mn  2  7  mn 


6K 


(A47b) 


The  added  mass  4/j  of  the  free  space  external  to  the  cavity,  provided  the  mode  number 
is  not  too  low,  is  taken  to  be 


M 


l 


<CJr 

mn  c 


(A48) 


When  the  mode  number  is  low,  the  resistive  impedance  (viscous  damping  coefficient)  is  taken 
to  be 

/3j  *=  p  cs  (A49) 

where 


Equation  (A27)  gave  the  modal  displacement  correlation  for  a  plate  in  a  low-density 
fluid .  The  correlation  for  a  high-density  fluid  is  obtained  by  replacing  the  structural  mass  in 
Equation  (A27)  by  the  total  mass 
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*'«  M  +  Mt  +  M2 


where  M  is  the  plate  mass, 

is  the  free  space  added  mass  given  by  Equation  (A48),  and 

"2  (L%  or%JTS  dUe  10  th6  e"°l0S"1  ’Uii  gi,e"  by  eithcr  Ration 


(A50) 


.  rz tu  damring  in  “  m  -* hmoe' *  E,uain  •— « 


a  a 

mn 


fo  jinBr,  ^ 
2M'+2M'«>mn  +2 J 


(A51) 


where  the  first  two  terms  represent  the  origins!  viscous  and  hysteretic  damping  for  the  plate 

:Za.:z:  *  *  ■  “* the  kst  tenn  is  the  idded  visc°us  ^  ^  *  <■  ’ 
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APPENDIX  A2  -  SAMPLE  PROBLEM 

An  example  will  be  given  to  show  how  to  determine  the  mean-square  pressure  (r«=  0) 
in  the  liquid-filled  cavity  (M  ■*  SI')  adjacent  to  the  plate.  Two  alternative  methods  of  compu¬ 
tation  will  be  treated. 

DISCRETE  FREQUENCY  METHOD 

The  modal  mean-square  pressure  P2n  at  the  plate  is  determined  from  Equations  (A46), 
(A27),  (A28),  and  (A20)  as  a  time-average  quantity. 


<  P  P  > 

mn  m  n 


V 2  Z1  i 

mn  mn 


*/2 


The  spatial  average  of  P2n  is 


—  a  /m0\2 

pL-f-  iLj;[-p)  “L 

1 

where*  /2-(6xl0"3  • 


A 


2  rr 


,  and 


K 


2 

1 


For  a  steel  structure  in  water,  let 

A  =  —in.  , 

2 

Lx~  «  5  ft  , 

Lt-1  ft, 

Ux  =  20  ft/sec  *  12  knots, 

d  -  0.02  ft  , 

0  =  3  x  10-2  sec  , 


•See  Appendix  A3. 
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B 


T)  -  102  ( Q  -  100)  ,  and 
p  -  64.2  lb/ft3  . 

At  coincidence  (Cg  *  c,  a  *  coc) 


Cn  =  c4  =  2  — •  =  (l>l 

B  c  M  c 


B 


=  ,,2 


ws/g  p  h/ g 


Hence,  ignoring  Poisson’s  ratio  a ,  the  sound  coincidence  frequency  is 


fr 


/psh/9 

Y Eh3/ 12 


c  2ff  VEk3/ 12  2ffA 


v/5T 

r  ?£ 


(4910  ft/sec)" 
2ff(l/24  ft) 


j/(3^ 


12(490  lb/ft3 ) 


2  ft/sec2)(0.4175x  1010  lb/ft2) 


19,230  cps 


Now 


k2  =  k2  -  r2 

mn  mn 

see  Equation  (A41).  From  page  174  of  Reference  10,  we  see  that  for  «mn  <a>c ,  CB  <  c  and 
rmn  >  k  (note:  kb  and  ka  in  Reference  10  respectively  become  rmn  and  k  here.)  Hence,  for 
frequencies  less  than  10,000  cps,  |  kmn  may  be  approximated  by  r^.  Further,  restricting 
attention  to  frequencies  greater  than  200  cps,  from  Equations  (A47b),  (A48),  and  (A50) 


M'  =  M  +  M .  +  =  M  +  — - —  +  — tan  k  L 

12  |  L.  |  i.  mn  z 

I *mn  '  * mn 


But 


kmn  =  i  Tmn,  i  tan  *  =  tanh  ix,  tanh  x  =  -  tanh  -  x 


M-  =  tan  ir_n  L  =  — —  tanh  (-rmnL  ) 

-•  p  mn  z  p  v  mn  z' 

1 mn  1  mn 


~~  tanh  r  L 

p  mn  z 

m  n 


Hence, 


for  u>mn  sufficiently  high  tanh 

9 


1/2 


co  L  +  1  and  M0  •»  — — 

mn  z  2  \k 


(Note:  In  the  NSRDC 


systom  of  units,  M ,  = 


9  I  n' 


is  used  when  making  computations.)  Thus 


M'  =  M 


=  M 


Also,  as  can  be  calculated  from  Equation  (A49),  for  <^mn  sufficiently  high,  we  get  /9j  «  0. 
For  these  conditions  and  using  Equation  (A8), 


Finally,  from  Equations  (A8)  and  (A21)  for  any  mode 


(O 


2 

mn 


is  calculated,  and  /mn(0)  can  be  calculated  from  either  Equation  (A33)  or  (A34).  In  these 
equations,  Equation  (A51)  is  used,  noting  that  in  this  problem  «  0,  M'  **  M,  B  «  Eh3/ 12, 
and  /3q  ■  0;  see  page  170  of  Reference  2. 
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There  is  now  sufficient  data  to  compute  all  of  the  quantities  in  the  equation  for  P2n. 
Finally,  from  Equations  (A46)  and  (A40)  and  using  kmn  =  -  fFmn 

=  "  ^pVmntmn  sin(  "  iT mnZ) 


-  sinh  F  z 

'  m  n  ~  mn  mn 


Hence,  P2  «  sinh  F2  ;  therefore,  the  modal  mean-square  pressure  for  a  location  away  from 
the  excited  plate  would  be  reduced  by  the  factor 


MODAL  DENSITY  METHOD 

We  now  determine  P2,  the  mean-square  pressure  as  measured  by  frequency  analysis  in 
bands  of  width  A  u.  The  modal  density  of  a  plate  found  by  considering  the  area  included  by 
the  quarter  circle  of  radius  Fmn  (Figure  (3)  )  is 


"(Fmn)  = 


dN<rmn)  r  mnLLv 

'  mn '  mn  x  y 


d  I' 


2  n 


see  page  135  of  Reference  10.  Hence,  using  Equation  (A8)  and  the  relation  cL  = 
previously  shown,  the  number  of  modes  included  up  to  wave  number  Tmn  is 


dNtrmn)  =  rm  rfrmn 

v  w/i'  mn  mn 


2  n 


\/3  LxLy 


where  d<o  =  2n  dv . 


Thus,  the  average  number  of  modes  A  N  in  a  band  A  v  is  approximately 

/3  LL 

AN  =  - A  i/ 

cLh 


A  v 


Using  the  relation  c Lh  =  \/ZLxLy  and  the  relation  for  J  >  previously  derived,  the 
equation  for  the  modal  mean-square  pressure  per  mode  is 


M, 


30 
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APPENDIX  A3  -  METHOD  FOR  DETERMINING  INPUT  DATA 

Dyer  used  the  following  estimates  of  input  data  for  the  boundary-layer  pressure  field 


1 


fr  m  =  6  x  10“ J  ~pUi 
1  r.  m%  s»  c)  r  01 


based  on  measurements  by  Willmarth12 


k  d  =  2 


6  =  30  — 


v  =  0.8  V 


<Dq  *>  KV 


based  on  a  comparison  of  Equations  (A18)  and  its  Fourier  transform,  which  is  the  spectral 

density  s(c<>)  =  2  I  <  f{r,t)  f*  >  e  l0iT dr  with  measurements.1 2,13 

*'-<» 

To  determine  the  cross  correlation  or  mean  square  pressures,  geometric  and  structural 
data  must  also  be  given  as  in  the  sample  problem. 
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APPENDIX  B 

BOEING  PROGRAM  1  (MAESTRELLO) 

APPENDIX  B1  -  MATHEMATICAL  ANALYSIS 
APPENDIX  B2  -  METHOD  FOR  DETERMINING  INPUT  DATA 
APPENDIX  B3  -  PROGRAM  IDENTIFICATION 
APPENDIX  B4  -  TEST  RUNS 
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(i,  b 


B 


t: 

F 


<J 


h 

K’K» 


i 


J 

K 


8 

a 


A  1 1  A  ^ » A , 


M 


m,n 

N 


r 

FWLmn 

nx  n 

75 


K^iT) 

F(r) 


t,t  ' 


NOTATION 

Constants 

Length  of  panel  sides 
Plate  modal  damping 

Amplitude  of  temporal  fluctuation  for  unsteady  convection 
Bending  stiffness 
Speed  of  sound  in  fluid 
Young’s  modulus 

S* 

Equals  — 

Plate  input-response  function 

A  function 

Panel  thickness 

Integrals 

Equals  /-I 

Jacobian 

Bending-wave  speed 
Constants;  wave  numbers 

Characteristic  length  of  pressure  field  for  semifrozen  flow 
(length  over  which  a  given  turbulent  pressure  pattern  remains 
distinguishable) 

Plate  mass 

Mode  numbers 

Constant,  for  piston  radiation  N  =  4 
Panel  perimeter 
Total  length  of  panel  ribs 
Sound  power  level  for  mn  mode 
Turbulence  wall  pressure  fluctuation 

Mean-square  pressure 

Correlation  coefficient  for  pressures 

Normalized  autocorrelation  for  pressures 

Time;  times  at  which  displacements  are  measured  at  points 
x,y,  and  x',y',  respectively 
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Wo 

Uc 

wm 

u 

u(t-t0) 

uT 

Volmn 

X 

(*o’  y0 )» (*0,^0 ) 

Y(x,y,t) 

7 

y7 

ymn 

y 

P  ac 

Pc 

Pst 

^  mn 
8* 

Smn 

e,e1,d2 
0r  02 


p 

Pw 


Times  at  which  pressure  measurements  are  made  at  points 
xQ  ,  y0  and  ,  y0' ,  respectively 

Broadband  convection  velocity 

Free-stream  velocity 

Local  flow  velocity 

Unit  step  function 

Frictional  velocity 

Volume  displacement  for  a  mode 

Distance  from  leading  edge  of  plate 

Points  on  the  panel  at  which  displacements  are  measured 

Points  on  panel  at  which  turbulence  pressures  are  measured 

Panel  displacement 

Root-mean-square  of  displacement 

Mean  square  displacement 

Eigenfunction  or  orthogonal  mode  of  plate  oscillation 

Distance  from  wall  normal  to  flow  direction 

Acoustic-damping  coefficient 

Critical  damping 

Structural  damping  coefficient 

Eigenvalue 

Boundary  layer  displacement  thickness 
Total  damping  ratio 

Equals  y  -  y',  lateral  partial  separation 
Equals  y0  +  y’ 

Eddy  lifetime  for  steady  convection,  i.e.,  time  in  which  value 
of  correlation  coefficient  obtained  from  envelope  of  correlation 
maxima  (maxima-maximorum)  drops  to  1/e 

Eddy  lifetime  for  unsteady  convection 

Kinematic  viscosity  of  fluid  near  wall 

Equals  x  -  x\  longitudinal  partial  separation 

Equals  a:0  +  «0' 

Density  of  fluid 

Density  of  fluid  near  wall 


85 


[■ 


a  i  ,  o . 


<*>mn(Ay)  or  6(x)4>(y) 


Standard  deviation  of  distribution 
Equals  t  -  t'\  time  delay 
Equais  tQ  - 

Equals  tQ  +  1 Q' 

Local  wall-shear  stress 
Plate  eigenfunctions 

Circular  frequency  equal  to  2n  f 
Circular  frequency  of  temporal  fluctuation 


m  n 


Plate  modal  frequency 


„  ,  <?4y  2  d*Y  d*Y 

4  Equals  - + -  + - 

dx 4  dx2dy2  dyA 

<  •  •  •  >  Symbol  for  time-average  operation 
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APPENDIX  B1  -  MATHEMATICAL  ANALYSIS 

Two  models  were  taken  from  experimental  data14,15  to  represent  the  cross  correlation 
of  the  turbulence  wall-pressure  fluctuations  in  a  broad  frequency  band.  The  models,  desig¬ 
nated  as  Model  A-convected  semifrozen  pattern  and  Model  B-unsteady  convection-will  be  con¬ 
sidered  in  turn. 

MODEL  A-CONVECTED  SEMIFROZEN 
PATTERN  (Uc  =  CONSTANT) 

The  normalized  cross-correlation  function  of  the  pressure  fluctuations  for  this  model  in 
a  moving  frame  of  reference  is  represented  by  the  sum  of  two  Gaussian  distributions 


-  T 


(^.T)  = 


<p(x,y,t)  p(x+  +  tj  ,  t  +r)> 


=  e 


~  U£-  ^cr)2  +  'Z2} 


20, 


\Axe 


-  t(£-  ucr)2  +  v2  j 

~i  | 


(Bl) 


corresponding  to  measurements  made  with  a  series  of  constant  time  delays  and  variable  spa¬ 
tial  separation;  see  Reference  16  Figure  4.  The  convection  velocity,  obtained  from  Equation 
(Bl),  is  defined  by 


=  0, 


when  U  c 


r 


(B2) 


Alternatively,  the  normalized  cross-correlation  function  may  also  be  represented  by 


/?(^i>?.t)  =  e 


-m 


-[(£-  Uj)2  +  j;2]  -  [(f  -  U  ,t)2  +  t)2]  \ 


2<7, 


I  Ate 


+  A2e 


2  o\ 


(B3) 


corresponding  to  measurements  made  with  constant  spatial  separation  and  variable  time  de¬ 
lay;  see  Reference  16  Figure  3.  The  convection  velocity  obtained  from  Equation  (B3)  is 
defined  by 
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«W(£t)  L  „  f 

- -  «  0,  when  U„  - - 

dr  c  r  _ 


(B4) 


Since  most  data  were  taken  at  constant  spatial  separation,  the  autocorrelation  function 
obtained  from  Equation  (B3)  by  setting  £  =  rj  =  0  is 


U2ct2 


-  U2r2 


2  ffj2  2o2 

tf(r)  =  ylj  c  +  <42  e 


(B5) 


and  the  corresponding  power  spectrum  is  (use  Fourier  transform  Pairs  708  of  Reference  7) 


PM  - 1.  J 


-iiar 

R(r) e  dr  = 


Ai°  i 

f/c727' 


-crf(o2 


2 1// 


V2 

t/c/27( 


2  2 
-a2w 


2  U~ 


(B6) 


Comparison  of  theory  and  experiment  shows  that  the  high-frequency  resolution  of 
Equation  (B3)  is  poor;  see  Reference  14  Figure  1.  Hence  a  mote  satisfactory  empirical  rep¬ 
resentation  of  the  cross  correlation  of  the  pressures  is  constructed  as  follows  from  the  auto¬ 
correlation  obtained  from  the  measured  power  spectral  density,  with  decay  in  a  moving  frame 
of  reference.  This  representation  corresponds  to  a  broader  range  of  frequency  components 
than  the  previous  one;  see  Reference  14  Figure  2.  The  measured  dimensionless  power  spec¬ 
tral  density  can  be  represented  by 


where 


P(<o)U 


e 


-  KjwF 


-K2a)F  -K3wF 

+  A2 e  +  A3e 


4,  =  1.6 
A2  =  7.2 
A3  =  12.0 
F  =  8*/U 
Kl  =  0.470 
K2  -  3.0 
*3  =  14-0 


(B7) 
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Using  Fourier  Pair  632  of  Reference  7,  the  normalized  autocorrelation  is  found 


«(t)  = 


unnormalized 


AiKi 


a2k2 


AzKz 


^2  +  i/2 


K  i  +  (r/Fy  K2  +  (r/F)2  K2  +  (t/FY 


\K  i  K2  Kj 


By  introducing  the  spatial  decay  e  and  moving  frame  of  reference  (£  -  Ucr), 
the  normalized  cross-correlation  function  of  the  pressure  becomes  (by  analogy  with  Equation 
(B3)  )  with  respect  to  symmetry  about  the  £  and  r  axes: 


Z 


^ - 

(y=i  K2  +  (1/FUc)2[(£-  Uct)2  +  ij2]) 

— - 

Z% 

y  =  l  Y 

|f|  |  r  | 

By  changing  the  decay  rate  from  -  to  —  in  Equation  (B9)  ,  (the  Taylor  hypothesis),  the 

U  c  V 

functional  form  of  R(^,rj,r)  still  fits  the  experimental  results.17  Hence  either  form  of  the  ex¬ 
ponential  may  be  used  to  describe  the  decay  of  the  wall  pressure  correlation. 

MODEL  B-UNSTEADY  CONVECTION 
(UeJi  CONSTANT) 

For  unsteady  convection,  the  normalized  cross  correlation  has  the  form 


M  -|r| 


-[(£-  vcT)2  +  i21 


l  wl 

^(^^it)  =  (  e  +  axe  sin  ctij  |r| )  e 


-[(£-  U.r )2  +  t ?2] 


2  w2 

+  A2(  e  +  a2e  cos  w2  irl )  e 
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and  tho  normalized  autocorrelation  (r;  =  £  =  0)  becomes 


"IT 


o. 


-  u2*2 

c 


20 : 


1  "i  .  .  l 

K(r)  =  Al(e  *■  a^e  sino^lrUe 


-  T 


-  T 


-U2r2 

C 


°2  62  2a  2 

+  AAe  +  a„e  cos  b.t)  e 


(Bll) 


STRUCTURAL  RESPONSE  TO 
TURBULENCE  EXCITATION 


The  displacement  cross  correlation  of  a  plate  due  to  the  cross  correlation  of  a  random 
pressure  <p(x0,y0,t0 )  p{x'Q  ,  yg  ,  ) >  has  been  given  by  Dyer;2  see  Appendix  A 


Y  (x,y,t)  Y(x',y',t')>  =  f  dtQ  f  dt^  f  dxQ  f  dyA  dx'Q[  dy 

-oo  -oo  Jo  Jo  Jo  Jo 


•  g\ 


V.  t/*Q  iS/0.< o )  9(  *'»  V'»  ,  yg  ,  f ' ) 


•  <P(x o  >  yo  >  ^  P (  xo  ’  Yo  ’  ) > 


(B12) 


Using  Equation  (B9)  with - -  |r| 

semifrozen  flow  becomes 


|  <0  -  I  >  the  unnormalized  cross  correlation  for 


<P(*o>yo’*0)  P(*o^o,to)> 


AVKV 

kI  +  (1/^C)2  {(K*o“  *o>  -  ^(‘o  -  «o)D2  +  (y0  -  yo)2 


(B13) 


As  in  Appendix  Al,  the  homogeneous  equation  for  plate  vibrations  has  the  form 
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dt2  dt 


where 


ym«(  « 


[-01  +  UO  1  ] 

mn  ffin 


is  the  normal  mode  solution  to  Equation  (B14).  Substitution  of  Equation  (B15)  in  Equation 
(B14)  yields 


r4*«.(*»y)-r«..*(*»y>-o 


(B16) 


where 


~  M("amn+  ^mn)2  “  (0««  +  £,*>  ('amn  + 


(B17) 


Equating  imaginary  and  real  quantities  in  Equation  (B17),* 


@  ac+  Pst  ^mnamn 


a  = 

mn 


(B18) 


2  *hT4 

mn  u  mn 


(B19) 


*  Forced  response  of  a  mode  to  a  sinusoidal  force  or  3-dB  method  was  used  to  measure  damping.  For  small 

j8  1  <y+~w-  1  Aw 

damping,  if  6  *  /3„.  +  Br, ,  the  decay  ratio  =*—  =  «■*  *■  - . ■*  =  <-*  1—  ,  where  a),  and  a)  are  circular  fre- 

/3r  2  tj  2  <y  + 

•  c  mn  mn 

quencies  of  vibration,  when  response  differs  from  extreme  value  by  ratio  of  \^2  (equivalent  to  3dB).  In  Reference 

Ar.i 

14,  Equation  (13)  Maestrello  defined  the  total  damping  ratio  by  8  =  — ' .  Hence 


/3  1  At)  ® mn  f$  amn 

1  0)  2  2 Mcomn  comn  8n  °mn 

~  c  mn  mn 


8  (o 
mn  mn 


see  Reference  18,  pages  14—16. 
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For  low  (lumping,  iho  impulse  response  function  was  found  (see  Appendix  Al)  to  be 


y,  t  /  xQ  ,  t/c  i  'q ) 


*»«<*>*>  0*»0> 


mn  wi»n^ 


mn(t  ”  40  5 


-VJ 


s*n  wmn  (  *  ~  ^0  ) 


Substituting  Equations  (B13)  and  (B20)  in  Equation  (B12)  and  ignoring  cross¬ 


terms, 


<Y(x,y,t)  Y{x\y’,t')>  3  ^ 

2,  r*2 


2- 


p 2  >"V»»(*.y)  *»«(»'*'> 


.  mn  2 

A. 


j/  =  1  y 


(  rr'  ^  a  rb  ra  rb 


/r  /*  *  -a  ro  /*o 

<*0  I  ^0  ^*0  rf*0  ^0 

-eo  J-oo  JO  •'0  JO  J0 


“  amn(  1  “  t0) 


mn  v 

[  sin  wmn(r_  *q)  w(*'“  ^o)l  e  [sin  wmn(<- i0)  u(«  -i0) 


_  I  ‘o  _  V 


3,  ^mn^O’  &  m  n  (Wo)  e 

^  Kl  +  (1/^c)2  {l(*o  -  *o)  -  Wc(*o  -  «o))2  +  (y0  -  ^o)2 


Also  (see  Appendix  Al) 


2  mnx  nny 

d>  - - sin  - - sin - 

m"  (ai)1'2  a  6 


By  trigonometric  manipulation, 


^mn^O  >  Vo  )  ^mn^O  ’  ^0  )  =  0J 


M  a:0  -  z0') 


cos 


-cos  • 


o  +  ao) 


•  £cos 


nn(y0  -  vq)  ™(y< 


•  -  cos 


b  +  Vp) j 


(B20) 

coupling 


(B21) 

(B22) 


(B23) 
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The  space  integral  in  Equation  (B21)  may  then  be  written 


K  =f  dy0 f  dVo[  dxo\  dxo 
Jo  Jo  Jo  Jo 


1  f  m”(z0  -  *0 )  m!r(-  x0  +  *o')-|  f 

— 1  cos - cos -  cos 

ab  L  a  a  j  [_ 


n”(y0-y0')  n7T(y0  +  y^) 

- cos - 


] 


+  (i /fuc)2  |[(*0  -  *o)  -  ue(*0  -  W  +  too  ■  yoY 


=  dVo  j  ^of  dxo\  dxo  Kyo’Vo’x o’*o)  (B24) 

Jq  Jo  Jo  Jo 


To  simplify  computation  of  Equation  (B21),  the  variable  of  integration  is  changed,  thus 
reducing  the  number  of  operations  for  the  integral. 

Let 


v'm y0  +  y'o 

v'+t,  =  2  y0 

y0  9  fan',  =0) 

y  =y0~yo 

*l'-l  -  2y0' 

y0  -  2  ■  f  °»  £  o) 

r=  *0  +  xo 

r+£-2*b 

*0  =  ^-~  =  y3(9  6H 

g  =  x0  -  Xq 

*o  2  =  y4to  M  -  °*  ) 

In  Appendix  Al,  following  Dyer,  the  transformation  of  two  variables  in  a  multiple  in¬ 
tegral  had  the  following  form-  Let 


X  =  rh{u,  v) ,  y  =  ip(u,v) 


Then 


jj/(*,y)  dx  dy  =  jj f[<j>(u,v)ifr(u,v)] 


dx 

dx 

du 

d  v 

dy 

dy 

du 

dv 

du  dv 


A  similar  formulation  may  be  made  for  any  number  of  variables  of  transformation. 


19,20 
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(B25) 


lv  =  f  f(x) dx  «•  f  flg(t)]  Jg(t)  dt 
Jx  i-  l 


s  1  (*) 


whore  x  *  y(t)  and  t  =  g~  1  ( x )  (the  inverse  function).  In  this  case,  from  Equation  (B24) 


/(*)  -f(V o>  Vo  >  ®o  '  *o) 


if  Mx0~xo)  m  <  xo  +  *0')  1  T  n”Uo~yo)  n7Ky0  +  yo)l 
ab  L  a  a  J  L  6  6J 

Kl  +  (1  /FUC)2  "j(*0  -  x')  -  Uc(t0  -  gj2  +  (y0  -  y')2‘ 


f\.g(t)\  =•  f[gx  (»m  ',££')»  '»££')>  g4(ihil ',&{')) 

Jiv'  +  r,)  (£'+£)  (T-ai 


Substitute  in  /(*) 


to  obtain 


eo  -  *o =  6  *0 +  *o  =  y0  -  Vo  -  y<> +  yJ  = v 


/[  £7(01  = 


1  f  mrrt;  |  f  nnrj  tinri  '1 

1 — ■  I  cos - cos  cos  • — (•-cos  I 

[  o  o  JL  b  b  J 

Kl*{VFUf  ’jf- (/,(«„ " 


i 

dg  i 

dl 

<V 

dg2 

^2 

<ty2 

^g  % 

dy 

dr 

^3 

dg3 

dg3 

dr) ’ 

dr 

dgA 

<ty4 

<V4 

dg4 

dr] 

<V 

dr 

llo  0 

2  2 

1  1 

- - 0  0 


(B26) 


i  i  "l  <B27) 


0  o-i  I 


To  obtain  the  new  limits,  transform  the  limits  in  the  y0,  y0'  plane  (for  the  transverse 
coordinates)  to  corresponding  quantities  in  the  rj,  17  'plane  and  the  limits  in  the  a:Q,  x ^  plane 
(for  the  longitudinal  coordinates)  to  corresponding  quantities  in  f,  plane.  The  transforma¬ 
tion  is  shown  in  Figures  4  and  5.  From  these  figures,  the  limits  for  the  ~x_  to  T  planes  are  set 
to 


x  =  g(t)  =  (y0,  y0',  x0,  x°)  :  0  <y0  <  6,  0  <  y0'  <  6,  0  <  xQ  <  a ,  0  <  <  a 


t  =  g  1  (  x)  =(r),T) b<ri  <b,\rj  \  <  y  '<  2  b  -  |  rj  | ,  -a  <  £,  <  a,  |£|<£'<2a-|£| 

(Note:  For  y  ^  0,  2 b  +  jj,  respectively,  or  equal  26  -  |  r\  |  along  upper  branch.  For  y  <0, 

tf '  =  ±  rj,  respectively,  or  equal  |  y  |  along  lower  branch.  Similarly  for  £'.) 


Substituting  Equations  (B26)  and  (B27)  in  Equation  (B25)  and  using  the  limits  for  £, 
t),  rj '  derived  above,  we  get 


:os  hr  ~cos  vr 

- Fi - 

V  4o6  J  _  ’Ju'  |«{t|  '  1^1  '  1/2  ,  /pri  \2  f  |t_// 


nnrj  Tint) 

cos - cos  < - 

6  6 


] 


-b  W  1*1  KZ+a/FUf*  ^-^c(<o-<o))2  +  *2J 

Integration  with  respect  to  y'  and  in  turn,  reduces  the  integral  to 


If 
«*  J.. 


a 


r 


|  _  mirf  a  mn  $ 

|(a  -  |£| )  cos  — — +  —  sin - 

\  a  mn  a 

•J^(*-M)co»22  +  « 

b  nir|y| 

w  b 

'Kl  +  {l/FUe)*  pf-f/c(«o-<o) 

. 

drf 


(B28) 

where 

r 6  fb 

I  ■*  2\  since  the  trigonometric  functions  are  even  functions  of  their  argument  and  are  thus 
-  b  Jo 

unaffected  by  the  signs  of  f,  rj. 

Equation  (B21)  is  rewritten 


<Y(x,y,t)Y(x',y',t')>  = 


3 

21. 


© 


-z 


M 2 


(Equation  continued  on  top  of  page  48.) 
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Figure  4A  —  Original  Coordinates  and 
Region  of  Integration 


0  7 

Figure  4b  —  Transformed  Coordinates  and 
Region  of  Integration 


Figure  4  -  Transformation  of  Transverse  Coordinates  and  Region  of  Integration 

Not*  to  Figure  4- 

Line  fj  whore  yj  •  0  transform*  to  rj 

Line  t j  where  y0  -  6  transforms  to  7 '  •  7  -  24  7 '  -  y0  ♦  y0'  -  ‘  (Vo  >  Vo'  *  *0  •  *0') 

Lino  f ,  where  y'  -  6  tranaforms  to  , -  26  ,  .  >#  .  y •  .  >  (yfl  , y#-  ,  ,,  ,  ^ 

Line  f4  where  yQ  •  0  transforms  to  n -  tj 

Thus  these  limit  point*  of  Equation  (B24)  for  the  region  y0 ,  yj  denoted  by  jfj  in  Figure  4ft  transform 
into  the  lines  enclosing  the  region  7\  shown  in  Figure  4b.  The  limits  for  rj,  7 'obtained  from  the  Inter  *re 
based  on  the  following  relationships. 

\  dn  * 

Along  f, .  0  <  y„  <  6 


yj-o  j  7  *-  y0  *y0*-y0 

dn’ 

Hence  tj  ranges  from  0  to  ft  with  elope  —  *  1. 

di 

Where  yj  -  y„  -  yj  |  -  0  then  7*|  -  0; 

>o*°  %*°  %*° 

whore  71  *  y0  ~  y0'  -  6  then  7 A. 

r0-‘  '%-» 

Along  I  j  :  0  i  yj  <  6  J  ij".  7  -  26  or  ij*  •  26  -  7  and  -  -  I 
I  07 


y0  *  4  I  7'  -  y0  »  y0'  -  6*  y0' 

,  <<7' 

Hence  7  ranges  from  6  to  26  with  slope  —  .  -  1, 

Where  .  ,  -  *0  >  »o'|r#.  .  ,  ’  y0  *  *  «*■•»  l\.  .  ,  *  *S 


whw"7|j,  _  y„  -y0'|r-  .  J  *  »-  »  -  0  the;.  7'^,  26. 

Along  f,  :  0  sy0  j  6  1  7 7  -  21  and  .  1 

y<>  ■  *  I  7 '  -  y0  ♦  y0'  *  y0  ♦  * 


Hence  >j '  ranges  from  6  to  2ft  with  slope  j-  •  1. 

Wher,,,ro_o-yo-yo|r#.o--^en,'t  -6; 


where  71 


.  ■  yo  ~  yo  I  -6-6-0  then  7  '1  -  26. 

6  1 r0  ”  *  1 y0  ”  6 


Along  f4  :  0  i  y '  s  6  7'  -  -  7  and  -  1 

«7 

y0 " 0  y0  ♦  y0'  *  y0' 


He, nee  7 'ranges  from  0  to  ft  with  elope  JL *.  -  j, 

dn 


,lro'-o"yo"y»ly0'-o-0then7'lr#..0-0- 

"''ro'-**y°"yo'%’-‘"6^n,'yo'-o‘6' 
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t  - 


o  *o'  -  0  8  *„ 

Figure  Sa  —  Original  Coordinates  and 
Region  of  Integration 


»  ( 

Figure  Sb  —  Transformed  Coordinates  and 
Region  of  Integration 


Figure  5  -  Transformation  of  Longitudinal  Coordinates  and  Region  of  Integration 

Note  to  Figure  6: 

Line  where  •  0  transforms  to  ( 

Line  f 2  where  *0  -  a  transforms  to  +  f  -  2a  ( x0  +  z’  «  g~x  (y#  ,  y0' ,  *„  ,  *„') 

because 

Line  f ,  where  x'  »  a  transforms  to  f f  -  2a  t  _  _  1 

3  0  f  “  *o  *o  *  *o  •  *0 » 

Line  f4  where  *0  -  0  transforms  to  f f 

Thus  the  limit  points  of  Equation  (B24)  for  the  region  r0  ,  x'Q  denoted  by  X3  in  Figure  5a  transform  into  the 
lines  enclosing  the  region  Tj  shown  in  Figure  5b,  The  limits  for  ("  obtained  from  the  latter  are  based  on  the 

following  relationships: 

Along  f, :  0  <  *„  <  a  |  f ’  -  (  and  ~  -  1. 


*o  "  0  }  Z’  "  *o  +  xo  "  *o 

dV 

Hence  f '  ranges  from  0  to  a  with  slope  —  -  1. 

Where  f  i  «  xn  -  then  f'i  -  0; 

'*o‘0  '*0-°  '*0“° 

where  fi  •  i.  -  *(  |  -  a  then  ( '  »  a. 

'*o  *  8  '*o  “  ° 

JK* 

Along  fj :  0  £  x‘  $  a  I  (’  +  (  -  2a  or  ('  2a  -  (  and  — — -  -  1 


*o  *  8  |  f  *  '  *0  ♦  *i  ’  0  +  *o* 

<iV 

Hence  ( ’  ranges  from  a  to  2a  with  slope  —  ■>  -  1. 

«{ 


Where  fi 

l»0  -  0 


r  -  a  then  ( \  ,  -  a; 


where  (,  -*o-x»-e-a-0  then  ( ,  -  2a. 

1  *o  “  °  1  *o  ”  • 

t  d(* 

Along  f  3  i  0  5  *0  <  a  |  ('  -  f  -  2a  and  —  •  1 


*o'  "  0  )  f ' '  ‘  *o  +  *o  -  *o  + 


Hence  ( ’  ranges  from  a  to  2a  with  slope  — —  »  1. 

<K 

WhCre  flr0-o  "  *'a  then  ’ 

*here  (\  "  *n  "  *ol  -  a-a-0  then  C\ 

l  *0  -  o  u  w  *0  *  0  1  *0  *  ( 


Along (4:  0<*^a  J  ('  -  -  (  and  —  -  -  1 


*o  •  0  C  ~  *0  +  *o  *  *0' 


Hence  f' ranges  from  0  to  a  with  slope  —  *  -  1. 

Where  .  0  "  «w  “  *S|,;  .  0  *  0  U,9n  f'l,'  -  0  ’ 
where  f  .  .  -  *  ‘  ~  «  then  f'lx*  .  0  ’ 


4T 


!\  r  {■ 


-%«<*- ‘o> 


-amn(-t~t0) 

sin  o>mn(t-t0)*(t-t0)e  s\nmnn(t'-tQ)u(t'-t^) 


r-»T  r  f*  .  r°  r*  ,  ***(*o«yo> **„(*o>yo>«  * 

Z/|/H  *°'o  ^"Jii  *°Jo  ‘'i'°  *; . (l/TO/  !<*„-*,;> Mlb-yo’)1)- 


(B29) 


where  the  space  integrals  are  given  by  Equation  (B28). 


Having  transformed  the  space  coordinates,  now  transform  the  time  coordinates.  First, 
change  the  variable  of  integration  and  find  the  Jacobian 


T°  +  T° 

To  “  +  lo  2<0  *  T0  +  T  o  lo  =  ’ — Z —  =  (To  > To ) 


To  Mto  -  <0  K  *  To  -  To  lo  « 


ro  ■  To 


»  =  T'  =  MVto)  (B30) 


‘/(T0’To)  = 


<*(?1»?2) 
*(To-To  ^ 


d9 i  9g j 

1  1 

2  2 

a<?2  <^2 

1  1 

*To  5t0 

~2*  2 

(B31) 


As  for  the  space  variables,  now  obtain  the  limits  of  rQ ,  in  the  transformed  (7^) 
plane.  The  transformation  of  the  limits  in  the  tQ ,  1 0'  plane  to  corresponding  quantities  in  the 
T0’  To  P*ane  *s  g' ven  in  Figures  6a  and  6b  where  the  limits  from  the  "xcd  to  T cd  plane  are 
shown  to  be 

led  *  j  (*0’  *o)  :  ~~  *  lo  ^  ^  lo Z  <'} 

Tcd *  j(To’To);  to“2^toS  2<-to,-~<t0'<  <  +  rJ  (B32) 


48 


A 


<-c,n  j 

i 

f  £cd 

'2 

> 

f 

s 

'o 

!t, 

(-C, 

-d) 

Figure  6a 

—  Original  Coordinates  and 

Region  of  Integration 


Figure  6b  —  Transformed  Coordinates  and 
Region  of  Integration 


|  X  (r +  </./- c) 

r0'.-»  ALONG  THIS  LINE  |  OR  (»,-»)  AS  </-« 


HENCE  r0-r0'-2i'=-«  AT  POINT  E 

Figure  6c  —  Subdivision  of  Region  A  into  Two  Parts,  Q  and  Q' 

Figure  6  -  Transformation  of  Time  Coordinates  and  Region  of  Integration 

The  time  limit  points  of  Equation  (B29)  for  the  region  t0  ,  t’  denoted  by  X_ed  in  Figure  6a,  where  c  -  ~  , 
d  transform  into  the  lines  enclosing  the  region  T ed  in  Figure  6b.  The  limits  obtained  from  the  latter  are 
hased  on  the  following  relationships,  using  Equation  (B30): 

Line  l ,  where  t'  -  -  of,  -  c  <  tQ  <  t  transforms  to  r’  •  tg  -  d,  r0  -  <0  +  d,  2  rf 


Line  where  tQ  »  C,  -  d  <  tg  <  l’  transforms  to  r„ 


Line  P3  whore  t’  -  t’,  t  >  <0  >  -  o  transforms  to  r„  -  lQ  -  t\  rQ'  -  +  /',  r'  -  rQ  +  2f' 

Line  f4  where  tQ  -  -  c,  f  >  >  -(/transforms  to  r0  -  -  o  -/0',  r’  -  -  c  +  l’,  r' -  -  2c-rg 

In  Figury  6b,  the  points  of  intersection  (corners)  representing  the  new  limits  are  found  by  solving  simul¬ 
taneous  equations  thus: 

Point  A':  '0~  -  r0'  -  2c  -  r0'  +  2rf  yields  r„'  -  -  c  -  d,  rQ  -  -  c  +  d 

Point  B '  :•  rg  -  r'  +  2d  ~  21  -  yields  rg  -  /  -  d,  r0  *  t  +  d 

Point  C'  :•  rg  -  21  -  r'  »  r'  -  2 1'  yields  rg  «•<+<',  rQ  »  /  -  /' 


Point  D' :  r0  -  r'  -21'-  -  tg'-2c  yields  rg 


«•<  rn 


-  t'  -  c 


For  Region  A 

For  Region  B 

For  Region  C 


The  limits  for  the  transformed  variables  r0,  rg  are  now  obtained  from  Figuro  6b  by  subdividing  the  rec¬ 
tangular  region  into  three  regions  A ,  fi,  C,  over  which  tho  integrations  are  to  be  performed.  From  the  figuro  and 
letting  c  *  «■>,  d  -*  *»,  we  have: 

r0  _  2/  <■  rg  <  21  -  rQ 

l  -  d  <  rg  <  t  +  t'  becomes  -  <■>  <  rg  <  l  *■  t' 
ro  -  2< '  <  '0  <  ro  +  2r/ 

t*  ~  C  K.  <  /  •  (f  4  »  m  <  <  —  oo  .  Since  the  limits  for 

coincide  they  will  yield  a  zero  contribution  to  tho  total 
integral.  Therefore  those  limits  aro  not  considered. 

-'o'  -  2c  <  rQ  <  +  2d 

-c-d  <  rg  £  t'  -  c  becomes  -  ~  <  rg  <  -  ■». 

Again,  these  limits  are  not  considorod. 

Since  only  the  limits  for  Region  A  contribute  to  the  total  integral,  they  alone  are  to  be  considered. 
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Thi*  limits  for  T Cti  shown  in  Figuro  6  correspond  to  integrations  for  Region  A  only,  which 
is  the  only  region  that  need  be  treated.  To  perform  the  integration  in  Region  A,  it  is  con¬ 
venient  to  subdivide  the  region  in  two,  Q  and  Q '  as  shown  in  Figure  6c.  The  limits  are  then 
reestablished  so  that  the  first  is  integrated  with  respect  to  in  Region  Q  (the  inner  inte¬ 
gral)  and  then  with  respect  to  rQ  in  Region  A;  similar  action  is  taken  for  Region  Q'.  The 
limits  are  (letting  t-t'^r) 

In  Region  Q  j-°°  <r0'  <  tq  +  l2f' 

—  00<Tq<  t  ~  t'  ■»  T 

In  Region  Q'  |-=»  <  Tq  <  2*  - 

<  -  r  -  r  <  r0  <  «■ 

The  transformed  time  integral  is  now  obtained  from  Equation  (B25) 

/'  «  j  f(x)  dx  - 
led  * 

using  Equation  (B29)  to  obtain 


J 


/[?(<)] 


Je(t)  dt 


(B33) 


‘(*) 


-I  *o"Sl 


/[*( 01  -« 


,1 

sin  -  t0)  w(<  -  t„)  e 


sin  «q)  «(<'-  tj) 


1 

,  -  —  e 
2 


[eos 


.(«♦*' 


‘o  •  -'o')  ■  cos  "« 


Wo>  1  .u(t-r0)»(<'-g 


■  I  *0  ■  *0  I 


♦  '  -To) 


- - 1 

•2 


(cos 


,(« ♦«'-’’<:) -cos 


,  f  <To'  +  ’o>l  f.  (ro'-ro)] 

“ro>!  *“[*  j  J  “  §  J 


(B34) 
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and  Equation  (B31)  to  obtain 


(B35) 


The  time  integral  /'then  becomes 


1  fT 

~rTo  +  2t' 

i  r°° 

r  2«-r0 

■if 

-  oo 

J  /[?(OlrfTo' 

—  oo 

</r0  +  — 

0  2  Jr 

J  fl#(t)Ur' 

—  OO 

<*T0 

For  Q 

For  Q' 

~*r  fr 


Tn  +  2t  ~  amvSl+  l'~T0  ^ 


COS  U)  (l 
m  n ' 


r  To 

+  r~To)  ‘  J 


r„  +  2i 


-amn“+t'-T0) 


C0S  a,mn(T“ro) 


“|Ti 


e  rfr0' 


IP 

~4  L 


I 


2  <-r. 


0  -a„„(«+  *  - 

mn 


*'-To'>  f 

COS  <Omn(t+  l'-T').  J 

1  ~|r| 


2  <-Tn 


-amn(t+t'-T0) 


C0S  wmn(T-To) 


g  *b'  riro 


(For  convenience  the  u’s  are  omitted.) 

Using  Formula  414  of  Reference  21  to  obtain  the  first  and  third  integrals(the  second 
and  fourth  integrations  are  simply  performed)and  noting  that  t  +  rQ  -2 1'  =*  t  -  t'  ~tq  = 
r-r0  and  t  +  t' -  2 /  +rQ  =*-/+/'  +  rQ  ■  rQ  - r ,  we  get 


-  T 


1  fT  U«C0S  %,(T"To)  -  w«sin  %n(T-To)]  ~~0 

e  - 


2  2 
a*n  +  „ 

mn  mn 


e  dr0 


-  rn 


.J-f 

4a„_  J 


T  -%»(To-T> 


e 

COS“mn(T-r o)  * 
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We  define 


f\  (f)  m  (<*  ~  I  £| )  cos  +  —  sin 
a  mn 


m*  1  £1 
a 


f2(l)  =  (b  ~l»?l)  cos  ~  + 

b 


b 

—  sin 
nv 


nn\  r)  | 
b 


(B38) 


Then 


<Y(x,y,t)Y(x',y',t')> 


^  mn 


(o 


2 

mn 


3  2  fc  /*6 

XA^PJ  MOJ  Mf)  — 

T^i  0  tf2  + 


<W/,'  +  /2'] 


or 


d/roc)2  [(f-(/c«0-<0')}2*,2] 


(B39) 


<7(*.y.O  Wy',0>  *  - 1 - 

3  /A  ' 


m 

v=  1 


- —  ^ - -  /;j 


M2 


2 ab  co  2 
mn 


(B40) 


where 


!i  X  Ax,Kv  I  M£)f  f  f2  0?)  I  d£  - 

"i  -«  ‘-•'o  J  K2 


4V 


a/^c)2  [{e-^o-of^2' 


co . 


2  2 

a  *  ^  0)  -  a 

mn  mn 


(a 


/„  « XAvK 

V  =  1 


-  T„ 


/T 


-amn<T~V 


UJ 

/  x  mn  \ 

sinwJT-ro)+- - cos  wmn(T-To)  e 

_ _  mn  j 


«lHVFUf  [jf  -KA-g  j  2  +  ,?] 


1  dr„ 


d£ 


(B41) 
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/2=  r^;  f  (a  ["  f  wdv]  — 
4*x  -■  L  o  J 


(l/FUf  [jf-l/c(V^)j  2  +  ?2] 


-- — -  f  m*>  rv, 

a*  +  or  J  Jo  ^ 

mn  mn  —  a  ^^=1 


to  ra  3 

- —  f  /,(£)  f  foil)  Vkk, 


-I  Tol 


■am»(r  0~T) 


wm/i  0 

sin  a>mn(rA-r)  + - cos  wmn(rrt-r)  e 

mnvO  '  _  mn'  0  • 

u  m  n 


Kl  +  (l/FUf  [  j^  -  UMo-^)  j'  +  7?2 


To  rfl? 


The  time  integral  in  /}  and  l2  can  be  further  simplified  by  changing  the  limits  of 
integration.  In  Equation  (B41),  for  /j  let 


*-  -  f 


ra^T-T 0>  L; 


(  .  wmn  )  0 

sin  wmn(T-To)  +  —  cos%n(T-To)  e 

'  mn  ' 

Af;  +  (1/Ft/C)2  [(f-t/cr0)2  +  ,2J 


x  =  r-  tq  rQ  =  t-  x  dx  =  -  e/r0 


r0  =  r,  *-  0 


T  =  —  oo  ,  X  =  oo 


substituting  the  previously  mentioned  quantities  in  K1  and  noting  that 


-r  -r 

J00  "  0 


-lT-*l 

—  a  x  .  a)  - - - 

mn  f  m  _  mn  \  * 

e  {sin  z  4  - cos  co  x  l  e  a 

r<*  \  mn  a  mn  l 

ft  _  r  _ mn 

Jo  K\  +  (1/FUC)2  J([f-  Ur)  +  ucx)2  +  72J 


(B43) 
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Similarly,  for  the  time  integral  in  /2,  set  x  =  rQ  -  r,  rQ  =  r+xdx  =  drQ  ,  and  note  that  when 
Tq  =  °o,  X  —  oo  whereas  when  rQ  =  t,  x  =  0.  The  substitutions  yield 

-I  T+  *1 


■dx  (B44> 


-o  x  I  _  01  mn  _  )  0 

e  {sin  gj  £  + -  cos  fi 

_  l  I 

Jo  Kl  +  {l/FUe)2  + 


When  Equations  (B43)  and  (B44)  are  substituted  into  Equations  (B41)  for  and  (B42)  for  /2, 
respectively,  Equation  (B40)  becomes 


<Y(x>y,t)Y(x',y  \t’)> 


-Jrfe) 

i/= i 


Z’ 


A/2 


m/i  oj  fa2  +  <y2  ) 

mn\  mn  mn' 


f  /,( f> 

-  a 
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/ FUf  |[(f-  f/cr)  +  t/c*)2  + 
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-|r+  *| 
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— 
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— 

sin  x  + 
m  n 


COS 


w  n5 } 

m  n  I 


(B45) 


(B46) 


and  it  is  important  to  note  that 

x  =  t-t0  ;  da?  =  dr0  for  the  first  terms  in  the  time  integral 


x  =  tq  -t;  =  drQ  for  the  second  terms  in  the  time  integral 


(B47) 
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f\\\2)  * - *  cos  z  +  — i  (  -  |  3  |  cos  z  +  sin  I  z  I) 

a  mn 


f2ii) 
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nrn]  1 

cos  — — -  +  i —  sin 
o  nv 


nn\r)\ 
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f  (?l) 

a  2\nn  /  1 

'21  (y)  a — £ — =  c°s  y +—  (sin  |y)  -  )y|  cos  y)  (B49) 

Note  that  /t(0  *a/u(5)  and  /2  (77)  =  f>/2J  (y) 


also  when 
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Substituting  Equations  (B48)  through  (B51)  in  Equation  (B45),  the  final  result  for  the 
placement  cross  correlation  is 


<Y(x,y,t)Y(x',y',t')>  = 


tf,mn(xy)<f>mn(x'’y') 

mn<0rnn(a  «„  +  "*«> 
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/mn  r  snn 

ftlM  j 
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-|r+  a| 
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r]  «,] 


dx  dy  dz  (B52) 


^  +  W  |[S-^T)-^]  +02)J 

(Note  that  in  Reference  15,  Equation  (28),  /n(a)  -  /(a),  /21(y)  -  /(y)  and  «?,(*)  .  g{x)  .) 

If  the  second  form  of  decay  is  used  (for  constant  partial  separation  and  variable  time 
delay)  for  the  cross  correlation  of  the  wall  pressure  for  semifrozen  flow,  then  in  Equation  (B13) 

-|«o-‘ol  -|*-*ol  "If  I 


VQ  U6 


mnU  6 

C 


so  that  following  a  procedure  similar  to  that  used  in  deriving  Equation  (B52),  for  this 


case 
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where 


cos  3  +  —  ( -|  s|  cos  3  +  sin  1 3 1 ) 
mi j 


cos  y  +  —  (sin  |y|  -  |yj  cos  y) 
nit 


amnx  r  _  -i 

y,(i)  -  e  sin  6»mn*  +  — -  cos  a>mn$ 

J 

Equations  (B52)  and  (B53)  have  similar  numerical  results. 

If  the  pressure  covariance  is  used  for  unsteady  convection  (Model  B)  given  in  Equation 
(BIO),  the  response  of  a  panel  including  modal  couplings  is  given  by 

<y(*1y,«)y(*',y',0>  *  J  <*0  J  <*of  dxX  dx'X  dvX  <*y0' 

—  OO  -bo  Jo  Jo  Jo  J0 


<f>mn(x’y)<t>mn(XOiyo)  V 

• - e 

(oM 

n i  n 


tsinuB»(<-Jo)u(<-<0)] 


— -  e  [sin  Vpqit  ~Iq  )  u  W  -  t0  )1 
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Using  the  modal  volume  displacement 


Volmn  =  V^yf  f  <f>(x)<f>(y)dx  dy  (B55) 

Jo  Jo 

the  modal  acoustic  power  radiated  in  a  reverberant  field  can  be  calculated 

Nu2pcK2  2pr+ P  r  ran  1 

PWLmn-~ -  y2‘-p~£[JoJo  I*.  Ml  l^„(y)l 

(B56) 

Finally,  using  Equation  B9,  the  normalized  power  spectrum  of  the  turbulence  pressures  is 
computed  for  case  of  r)  =  0.  The  normalized  correlation  coefficient  is  defined  as 


r) 


Y(x,y,t)Y(x',y',t') 

c  «»  ■■■  '  ■■■  . . ■  . . 

[V(*,y,02  y(*',y',02] 1/2 


The  normalized  power  spectrum  is  then 


P(K.  ,<u)  *  — j  f  R(£,0,t)  e  ('K^+C°T)d^dr  (B57) 
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From  Pair  632.2  of  Reference  7,  with  p  «  iw  and  /3  »  ,  the  quantity  in  brackets  equals 

*  -KyF\»\-i£o>/Vc 

•~re  .  Hence 

KyF 


P{KX  ,«) = 


Z^> 


3  /  y 


H£l 
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(B59) 


y  =  l 


0} 

where  K'.  =  —  +  K. . 

%  1 
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1'sing  Pair  144  of  Reference  7,  with  p  -  iK ' 


equals 


-2/r  0 

i 

-(A-;)2  -d :uco)2 


'2UC0 

1  +  02(o>  +  KXUC)2 


and 


the  integral 


Hence  r—t  -|<w|/C  F 

2*  V 

P(Kvto)  - - - - ( FUc/2rr )  — - - -  (B60) 

1  +  e2  (to  +  KXUC)2  3  A  * 

which  agrees  with  Reference  16,  Equation  (6). 

COMPUTER  PROGRAMS 

Computer  programs  for  either  Equation  (B52)  or  (B53)  and  Equation  (B60)  are  designated 
as  Subprograms  A  and  B,  respectively.  Reference  22  presents  equations  similar  to  Equations 
(B52)  and  (B53)  and  gives  Fourier  transforms  to  yield  the  displacement  cross  spectral  density; 
(see  Reference  22,  Equation  (27)).  Since  the  method  of  derivation  is  similar  to  the  method 
presented  in  this  report,  the  details  are  omitted  here.*  The  corresponding  computer  sub¬ 
programs  aro  designated  as  Subprograms  C  (modal  coupling  excluded)  and  D  (modal  coupling 
included).  The  latter  subprograms  treat  simple  and  clamped  supports  and  uncoupled  and 
coupled  modes. 


APPENDIX  B2  -  METHOD  FOR  DETERMING  INPUT  DATA 


The  following  data  are  furnished  to  the  computer 


Flow  data: 
Panel  data: 


u c  »  Tw  ,  8*  =  FU ,  Q)  ,p* ,  d ,  AV,KV  where  v  =  1,  2,  3 
a,  A,  A,  Smn,E,  M,  <£m„,  «mn,  £,  t,,  t,  m,  n,  Y,  N,  pcK2a , 


2Pr+Pp 


•»  x,  y,  x  , 


The  method  for  determining  the  data  is  now  described.  Either  the  data  are  arbitrarily 
selected  by  the  user,  i.e.,  the  values  are  chosen  to  represent  the  range  of  interest,  or  the 
selections  may  correspond  to  experimental  values  for  a  parameter. 


•The  mathematic«I  form  of  the  model  representing  turbulence  excitation  pressures  used  in  Reference  22  is 
slightly  different  from  that  used  by  Maestrello  in  his  earlier  works. 
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Parameter 


Description 


AV,K  Prescribed  constants  used  in  Equation  (B7) 

a,b,h  Prescribed  quantities 


E 

M 

m,n 

N 


A  prescribed  quantity 

A  proscribed  quantity 
» 

Prescribed  data 

Determined  as  described  on  page  434  of  Reference  15. 
Maestrello  assumed  piston  radiation  for  which  N  =  4. 


2Pr*Pp 


Equal  to  1  for  a  plate  without  ribs 


U 


e 


x,yx',  y ' 


Y 

5*(~FU) 


8 


mn 


Equals!  P(< u)  doj,  where  P  (tu)  is  obtained  from  Equation 

Jo 

(B7).  This  quantity  can  also  be  measured  directly. 

A  parameter  whose  values  are  prescribed  by  the  user, 

Uc  =  0.8  (Jx  ;  see  Reference  15  page  427  .  A  method  for 

measuring  this  quantity  by  experimentation  is  given  by 
Equations  (B2)  and  (B4)  or  alternately  for  K,a >  space  by 
equations  given  in  Reference  15,  page  414. 

Prescribed  points;  the  cross  correlation  of  the  displacements 
are  computed  for  these  points. 

Determined  by  taking  the  square  root  of  the  calculated 
mean-square  displacement. 

Equals  0.37/8  (U^x/v)'  1/s;  see  Reference  25,  Equations 

(21.6)  and  (21.8), Tables  1.1  and  2.1  of  that  reference  give 
values  of  v  in  air  and  water.  Using  this  equation,  values 
of  8*  for  a  given  fluid  can  be  prescribed  over  a  range  of  Ux- 

Total  damping  ratio  obtained  in  accordance  with  the  methods 
of  Section  3.4  of  Reference  14  and  further  described  in  the 
footnote  to  statement  preceding  Equation  (B18).  Note  that  in 

Reference  15  Figure  19,  amn  =  ,  whereas  deter¬ 

mination  of  amn  in  Figure  16  of  the  same  reference  is  made  from 
the  formula  amn  =  ,  which  is  based  on  El  Baroudis 

data.  The  latter  was  considered  acceptable  for  thin  plates.  In 
general  it  is  preferable  to  use  the  former  method  in  making  a 
theoretical  calculation.  Value  of  amn  may  be  prescribed  by  the 
user  to  determine  the  effects  of  damping  variations. 


•Our  equation  agrees  with  that  given  by  Jacobs  in  Equation  (59),  of  Reference  34  letting  U  =  0.8  Mc(M  =  Mach 
Number  and  c  =  sound  velocity)  and  noting  that  6  should  be  m  milliseconds  in  that  equation.  Our  equation  differs 

from  that  given  in  Reference  14,  Equation  7,  by  a  factor  of  10~3  .  see  also  Appendix  E. 
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i>  Corresponds  to  the  time  in  which  the  value  of  the  measured 

correlation  coefficient  of  the  fluctuating  pressures  at  the  wall, 
obtained  from  the  envelope  of  the  correlation  maxima,  drop  to 
l,V.  Plots  of  0  vorsus  Mach  number  for  broad-  and  narrow-band 
frequencies  are  given  in  Reference  14,  Figure  5.  From  Figure  5* 

0  -  1 . J17  *  lO-'*  Uc  +  1.15  where  &  is  in  milliseconds  and  Uc 

in  feet  per  second.  Thus,  0  =  0(UC)  may  also  be  prescribed  for 
various  values  of  Uc\  0  may  also  be  obtained  from  the  plot  cf 

U c0 /?>  *  versus  the  Mach  number  given  in  Reference  15,  Figure  6. 
Proscribed  data 

pCK2  The  numerical  value  of  this  quantity  for  air  has  been  computed  and 

included  in  the  program.  For  a  water  medium,  it  is  necessary  to 
modify  this  value  in  the  ratio  of  (pC)water/  (p^)a ir  by  adding 
an  instruction  to  the  program. 

Tu,  Determination  of  this  quantity  is  based  on  the  law  of  the  wall 

described  in  detail  and  shown  in  Reference  23,  Figure  1.  The 
Maestrello  data  given  in  Reference  24,  Figure  2  ,  lie  along  the 
universal  curve  representing  this  law.  (Note  that  for  incompress¬ 
ible  flow,  the  vertical  coordinate  of  this  figure  equals  u/uT)- 

yur .  u  yur 

From  either  of  the  figures, - /  '• — *  - -constant  -  inverse 

V  *  Uu 

w  T  y  w 

slope  of  the  curve,  which  is  measured.  Hence  if  the  velocity  pro¬ 
file  of  the  users  data  agrees  with  the  universal  curve,  then  for  a 
known  value  of  vw ,  selecting  a  value  of  u  corresponding  to  a 

value  of  y  yields  the  value  of  uT‘  By  definition  rw  *Pwur- 

<t>mn(xy')(f>mn(x''y  ')  ^be  data  required  for  the  computer  program  are  calculated  by  the 

digital  computer  for  a  range  of  prescribed  values  of  m,n,x,y,x' , 
and  y'. 

(o  Prescribed  in  Equation  (B7)  to  obtain  P(o>) 

to mn  For  a  plate  of  given  geometry  and  structural  properties,  this 

quantity  is  computed  by  hand  for  a  plate  with  rigid  or  fixed  bound¬ 
aries  using  Equation  (A7)  of  Reference  14.  For  a  simply  supported 
plate,  use  Equation  (IV. 5. 16)  of  Reference  10. 
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APPENDIX  B3  -  PROGRAM  IDENTIFICATION 


A  program  is  presented  for  computing  mean-square  displacement  (Subprogram  A)  of 
a  simply  supported  rectangular  panel  excited  by  a  turbulent  boundary  layer  and  the  modal 
acoustic-power  radiation  of  the  plate  in  a  reverberant  field.  The  program  also  computes  the 
turbulent  pressures  on  the  plate  (Subprogram  B)  and  the  cross  spectral  density  of  the  dis¬ 
placement  for  simple  or  clamped  boundaries  without  modal  cross  coupling  (Subprogram  C)  and 
with  modal  cross  coupling  (Subprogram  D);  see  Tables  2  and  3.  Computer  running  times  for 
sample  problems  are  as  follows: 


Subprogram 

Computer 

Time 

A 

IBM  7090 
at 

NSRDC 

The  Simpson  rule  of  integration 

4  modes  (m  =  1,  3,  5,  7,  with  n  =  1) 

1  convection  velocity  Uc 

Approximately  28  min 

B 

IBM  7090 
at 

NSRDC 

48  frequencies 

8  spatial  separations 

Approximately  2  min 

C 

IBM  360/91 
at 

Applied  Physics 
Laboratory 

Johns  Hopkins 
University 

Gaussian  quadrature  (9  point) 

4  modes  ( m  =  1,  3,  5,  7,  with  n  =  1) 
l"c 

Approximately  9  sec 
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10-1 


1 


10 


» 


7nL^/ A  ■ 


Note  1: 
Note  2: 


For  Curves  I  and  II,  use  ordinate  scales  to  left  and  right,  respectively. 

NSRDC  Curve  I  was  obtained  by  selection  of  a  value  of  p2  «  13.72  Ib/in.4  which  yielded  a  curve 
approximating  that  of  Maestrello  Curve  I.  Maestrello’s  actual  value  of  ~p^  (Figure  7,  Reference  16)  is 
unknown.  NSRDC  Curve  I  was  then  manually  adjusted  to  give  the  same  value  of  y2  as  that  given  by 


2n  Lg 

Maestrello  at - » 


A 


mn 


1.  (This  should  be  equivalent  to  using  the  same  value  of  p 2  as  Maestrello.) 


The  replot  is  shown  a3  Curve  II.  Observe  that  in  view  of  the  scaling  errors  involved  in  copying  the 
Maestrello  curve,  the  curves  shown  in  the  replot  are  in  good  agrsement. 


Figure  7  -  Variation  of  Modal  Mean  Squaie  Displacement  with  Eddy  Lifetime  for 

a  36-  x  6.5-  x  0.04-Inch  Panel 
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Uc  In  ) 

Figure  8  -  Computed  Modal  Mean  Square  Displacement  for  a  36-  x  6.5-  x  0.04-Inch  Panel 

Compare  with  Figure  19  of  Reference  15-  The  trend  of  curves  there  is  similar  to  curves  drawn  here,  but 

2  2 
differences  appear  to  be  due  either  to  a  normalization  factor  of  4ff  or  to  the  use  of  different  values  of  p 

than  those  used  here. 


41  x  10*  * 


-44x10*’ 


-41x10*’  -32 


40x16+’ 


Figure  9  -  Contours  of  Constant  Turbulence  Pressure  Spectrum  Level 
for  Convected  Semifrozen  Pattern 

Compare  with  Figure  5  of  Reference  15. 


DISPLACEMENT  SPECTRUM  y  M  in-2/H: 


Figure  10  -  Computed  Displacement  Spectral  Density  for  a  12-  x  6-  x  0.062-Inch  Titanium  Panel 

Compare  with  Figure  20  of  Reference  22. 
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Figure  10a  —  Result  Using  Both  Parts  of  Subprogram  C 
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DISPLACEMENT  SPECTRUM  y  (<u)  in. 


Figure  10b  —  Results  Ignoring  the  First  Part  of  the  Solution 


Notes  for  Figures  10a  and  10b: 


To  compute  the  power  spectrum,  without  coupling.  Subprogram  C  first  uses  the  Warburton  method  to  determine 
the  eigenfunctions  and  eigenvalues.  Hence  the  user  must  submit  the  coefficients  for  the  boundary  conditions  he 
desires.  The  program  comes  in  two  parts:  the  first  solves  for  the  peak  response  at  co  =  fc>mn  and  the  second 
solves  for  the  spectrum,  varying  at  around  Ct)mn- 

Figure  10a  shows  a  narrow  bandwidth  for  some  modes,  such  as  (5.1).  This  means  that  if  the  user  were  to  run 
the  program  only  for  <y  ^  wmn'  (as  ln  Fteute  10b  which  ignores  the  first  part  of  the  solution)  he  could  bypass 

the  peak  response.  The  curve  shown  in  Figure  10a  is  a  result  of  both  programs,  where  DW,  the  interval  used  in 
the  computer  program,  was  100,  for  the  case  (o  0);nn  The  curve  was  then  extrapolated  to  its  peak  value  at 


Input  data  for  Figures  10a  and  10b  were  obtained  from  Maestrello,  he  computed  his  modal  frequencies^for  Ap 
=  0.06  and  14  psi  and  used  experimentally  obtained  values  of  damping.  The  relations  V  =  0.8  U£  and  p  =12  T 

were  used.  Input  dimensions  of  length  are  in  units  of  feet,  whereas  by  means  of  a  conversion  factor  in  the  pro¬ 
gram,  the  corresponding  output  is  in  inch  units. 

In  Figure  10b  the  static  pressure  Ap  =  14  psi  is  introduced  into  the  program  by  modifying  the  value  of  &res 


2 

to 


obtained  at  Ap  =  0.06  psi  «  0  psi  from  the  Warburton  equation  for  clamped  boundaries.  Since  0>res 

and 


approximately  k  «  E,  then  <yres  ls  proportional  to  the  square  root  of  E  and  therefore  the  stiffness  k.  If  origi¬ 
nally  we  have  E\  „  _  n  =  0.21  X  108  psi,  then  modifying  E  in  proportion  to  the  change  in  stiffness  which  was 

Li  p  —  U  g 

measured  with  a  strain  gage  on  the  panel  under  static  loading,  we  get  -  14  psi  =  x  10  psi.  We  then 


recompute  the  value  of  wres  corresponding  to  this  value  of  E. 
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APPENDIX  B 

TABLE  2 

Identification  of  Subprograms  A,  B,  C,  and  D  —  Maestrello 

This  table  includes  identification  input  and  output  data 
units  (in  foot  —  pound  —  seconos),  flow  charts,  order  of 
data,  and  sample  data.  Computer  subprogram  listings  are 
given  at  the  end  of  this  appendix  as  Table  3. 

Subprogram  A:  Computation  of  Plate  Vibration  and  Acoustic  Response 

for  Model  A  (Semifrozen  Convection) 

Subprogram  B:  Computation  of  Cross  Spectral  Density  of  Turbulent 

Pressures  for  Model  A  (Semifrozen  Convection) 

Subprogram  C:  Computation  of  Cross  Spectral  Density  of  Displacement 

Subprogram  D:  Generalization  of  Subprogram  C  to  Include  Modal  Cross 

Coupling 


TABLE  2  A 


Input  Required  for  Subprogram.  A  to  Compute  the  Plate  Vibration  and 
Acoustic  Response  for  the  Semifrozen  Convection  {Model  A) 
and  Corresponding  Output 

(Units  are  given  in  foot-pound-seconds) 


Data 

Description 

Type 

Symbol  Used 
in  Program 

Flow  Characteristics  (Subprogram  A) 

Vc 

Broadband  convection 
velocity 

Decimal 

UC(I) 

~2 

V 

Mean-square  wall- 
pressure  fluctuations, 
which  vary  with  Uc 

Decimal 

PB2*DPB2(I) 

(ruc)2 

/S*VC\ 

Quantity  L 

squared  where: 

8*  =  boundary-layer 
displacement 
thickness 

V  =  free  stream  velocity 

Decimal 

FUCSQ 

kvkvk3 

Universal  constants: 

A'j  =  0.470 

K2  =  3.0 

K3  =  14.0 

Decimal 

AK 

AvA2,A2 

Universal  constants: 

Aj  =  1.6 

A2  =  7.2 

A3  =  12.0 

Decimal 

AN 

o  2 

(*PB2  would  represent  a  unique  value  of  p  if  p  were  independent  of  V .  It  enters  the  program 

2  c 

(i.e.,  data  cards)  once  only.  Since  p  actually  varies  with  (/ .  a  correction  factor  DPB2(I)  is  entered 
~2  c 

with  every  value  of  U  .Thu«  p  as  a  function  of  U  is  accounted  for  by  the  quantity  PB2*  DPB2(I). 
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TABLE  2A  (Continued) 


Data 


Clatr  Characteristics 


Description 

Typo 

Symbol  Used 
in  Program 

Panel  thickness 

Decimal 

II 

Square  of  plate  mass 

Decimal 

FM2 

Lengths  of  panel 
sides 

Docimal 

ZUP,  YIIP 

Total  damping  ratio 

Decimal 

DAMP 

Modal  frequencies  of 
the  plate 

Decimal 

OMEGA 

Additional  Quantities 


Range  of  pinto  mode 

First  m  mode  number, 

numbers  for  which 

last  m  mode  number, 

calculations  are 

interval  between  m 

desired 

mode  number,  total 
number  of  m’s 

Same  information  as 
previously  described, 
with  respect  to  n  mode 
numbers 

Time  delay 


Number  of  values  of 
Ut.  to  bo  calculated 


Sot  of  reference 
points  against 
which  mean-square 
displacement  and 
acoustic  power 
will  bo  tabulated 


Number  of  values  of 
PARAM  specified 


Wc0 

-  where 

^m,  n 

0  -  eddy  lifetime; 

A  „  -  acoustic  wave 

m,  n 

length  for  mode 


Coordinates  of  a  point 
on  plate  at  which  mean- 
squaro  displacomontand 
acoustic  power  aro 
calculated 


any  point  on  plato 
different  from  xQ,  y0 


Decimal 


Integer 


Integer 


Docimal 


Docimal 


MLOW 

MUP 

DM 

MSTEPS 

NLOW 

NUP 

DN 

NSTEPS 


NP 


XO,  YO 


XOP,  YOP 
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TABLE  2A  (Continued) 


Data 

Description 

Type 

Symbol  Used 
in  Program 

Calculated  Output  in  Inch-Pound-Seconds 

$  m,n 

Value  of  eigenfunctions 
of  mean-square  dis¬ 
placement 

A  value  of  EIGEN  is 
computed  for  each  mode 
(m,n)  with  three  values 
of  total  damping; 

1/10  am  _  ;am  „  ;10a„  „ 

m  fix  m  fix  iix  fix 

Decimal 

EIGEN 

am,  n 

Values  of  total  damping 
associated  with  each 
mode  ( m,n ) 

Decimal 

FA(m,n,l)  for  compu¬ 
tation;  A (m,n,  DAMP) 
in  output 

Vol  „ 

m ,  n 

JW 

Volume  under  each 
eigenfunction 

Decimal 

VOL 

l(m,n) 

Triple  integral  of 

Equation  1.13:  integral 
of  cross  correlation 

Decimal 

I X  Y  2 

I  (m,n) 

Mean-square  displace¬ 
ment  for  values  of 

1/10  a  „;am  „;10am  „ 

m,  n1  in,  n 7  m,  n 

Decimal 

ANS 

. 
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Output  I'  pri ntod  for  a  given  convection  velocity  Vc  for  the  modes  of  interest.  The 
last  four  columns  of  the  output  respectively  represent  y2  for  1/10  am  n,  y2  foramn,  and 
V2  for  10</mn  for  chosen  PARAM.  Since  this  program  was  written,  Maestrello  has  developed 
methods  of  computing  damping,  but  here  he  chooses  the  magnitude  of  amn  according  to  the 
oO  region  of  the  curve  that  interests  him.  For  example,  Figure  7  plots  ~Y^  against w  • 6  . 

In  the  region  -  0  =  10-  1  to  1.0  he  uses  a  /  10;  however,  for  w  •  0  =  1.0  to  40,  he  uses 
a  .  Also,  y2  corresponds  to  the  value  of  PARAM  closest  to  (o0  where  0  corresponds  to(Jc. 
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WRITE 
Vaiuos  ju^i 
Calculated 


TABLE  2A  (Continued) 


© 

IX)  777 

Vary  Vr 

CONST 

®.  DI’B'2(KU) 

WRITE 

If  AND  CONST 

© 

DO  778 

m  Vanes 

® 

DO  779 

Sot  up  O'* 

779  0, 

PARAM  ( i)/m/Ut  •  A 

©  Sot  uppor  and  lo*er  limits*  for  or,  y,  t  lntograln 
dotofmino  no.  of  stops  for  o&ch  Intogfnl  *nd 
the  stop  site  for  each 

© 


DO  II 

Calculates  coefficients  for 
Simpons  Rule  _ 


©  * 

Sot  variable  of  integration  «  lower  limit  on  t 
Calculates  function  of  i  values 


(n)  v 


Sot  vanablo  of  integration  »•  lower  limit  on  y 
Calculates  function  of  y  values 


Sot  up  ami  initialize  to  zero,  tho  array 
for  summing  on  oulisde  integral 


] 


© 


Set  variable  of  integration  -  lowor  limit  on  X 
Calculates  function  of  X  varying  y  and  z  and 
summing  up  parts  previously  calculated 


t..  ' '  ■■■'[’"  (---'4  c  “ 1 1 

3  A  L  • 


h't,  • 


t-Vc(i  -  t)  .  yJ 


© 


WRITE 


1 


Answers  of 
triple  integral 


IXYZ 


© 


COMPUTE  AND  WHITE 

ANS  -  IXYZ  •  EIGEN  AND  CONST 


77b  CONTINUE 
777  CONTINUE 


I 

STOP 
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TABLE  2A  (Continued) 


AH  (3)  10  20  30  40  50  60  70 


UCO)  10  DPB2(1)  20  30  40  50  60  70 


Number  of  cards  needed  for  Uc  >  DPB2  arrays  is  equal  to  KUC 
ZUP  10  20  30  40  50  60  70 


(1,N),  .  .  •  ,  (m,N)  to  complete  OMEGA  (m,n)  array. 


I 
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TABLE  2A  (Continued) 


Tit*  number  of  cord*  n*«d*d  to  cowpltto  PARmM  orray  it  equal  to  NP. 


77 


TABLE  2B 


Input  Required  for  Subprogram  B  to  Compute  the  Cross  Spectral  Density 
of  Turbulence  Pressures  for  the  Semifrozen  Convection  (Model  A) 
and  Corresponding  Output 

(Units  are  given  in  foot-pound-seconds) 


Data 

Description 

Typo 

Symbols  Used 
in  Program 

. 

Flow  Characteristics 

0 

Eddy  Lifetimo 

Decimal 

THETA 

i 

x-x’  (Plato  separation 
in  r  direction) 

Decimal 

SI 

V 

Wail  shear  stress 

Decimal 

TW 

t o 

Frequency 

Decimal 

FR 

8* 

Boundary-layer  dis¬ 
placement  thickness 

Decimal 

DSTAR 

Kl 

Universal  constants: 

Kx  -  0.470,  K2  -  3.0, 
*3-14.0 

Decimal 

D 

Aj  ,A2,A3 

Universal  constants: 

A{  -  1.6  A2  -  7.2, 

A3  =  12.0 

Decimal 

A 

Uc 

Broadband  convection 
velocity 

Decimal 

UC 

Calculated  Output  in 

F  oot-Pomd-Seconds 

R(r) 

Normalized  autocorrelation 
of  the  pressure;  soo 

Equation  (B8) 

Decimal 

RAUTO 

R({,n,r) 

Normalized  cross  correlation 
of  the  pressuro;  soo 

Equation  (B9) 

Decimal 

RCROSS 

P(u>)  U 

'l 

Dimonsionless  powor  spectrum 
of  wall-prossuro  fluctuations; 
seo  Equation  (B7) 

Decimal 

POW 

/>(<*>) 

Power  spoctrum;  see 

Equation  (B7) 

Decimal 

PDW 

mvo>) 

Normalized  cross-power 
spectral  density,  using 
longitudinal  space-time 
cross  correlation  of 
semifrozen  model 

Decimal 

PKW 

P(u) 

Power  spoctrum,  correspond¬ 
ing  to  l>(Kl,o>) 

. _ 

Decimal 

PW 
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AUTOCORRELATION  EQUATION  (M) 
CROSS  CORRELATION  EQUATION  (B9) 


TABLE  2C 


Input  Required  for  Subprogram  C  to  Compute  Cross  Density  Displacement 
and  Corresponding  Output 

(Units  are  given  in  foot-pound-seconds) 


Symbol 

Description 

Program 

Symbol 

Flow  and  Plate  Characteristics 
and  Additional  Quantities 

ARG(I) 

Gaussian  quadrature 

ARG(I) 

WGT(I) 

Weights  and  arguments;  NW  of  them; 
in  this  problem  9  points 

WGT(I) 

NW 

Number  of  points  in  Gaussian  integration 

NW 

K 

Universal  constants;  NAK  of  each;  in 

AK  (I) 

A 

this  case,  4  (supersonic) 

AN  (I) 

NAK 

Number  of  A’s  and  K’s;  4  (supersonic) 

NAK 

TITLE 

Alphanumeric  title  -  -labels  the 
output;  User’s  choice  of  words 

TITLE  (I) 

X 

x  Coordinate  position  on  plate 

X 

x' 

Second  x  coordinate:  £  =  x  -  x' 

XP 

y 

y  Coordinate  position  on  plate 

Y 

y’ 

Second  y  coordinate:  y  =  y  -  y’ 

YP 

a 

Plate  size  -  x  direction 

A 

h 

Plate  size  -  y  direction 

B 

Free-stream  velocity 

UE 

M 

Plate  mass 

FM 

8* 

Boundary  layer  displacement  thickness 

DEL 

V2 

Mean-square  wall  pressure  fluctuation 

PB2 

Vc 

Convection  velocity 

UC 

e 

Eddy  lifetime 

TH 

MLOW 

First  mode  of  interest  for  m 

MLOW 

MUP 

Last  mode  of  interest  for  m 

MUP 

DM 

Increment  between  m  modes 

DM 

NLOW 

Same  as  described  but  for  n  modes 

NLOW 

NUP 

Same  as  described  but  for  n  modes 

NUP 

DN 

Same  as  described  but  for  n  modes 

DN 
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TABLE  2C  (Continued) 


Symbol 


Description 


Warburton  [for  0  (x)  to  define 
k) 

plates  with  fixed  edges,  for  m,n 
modes,  respectively. 

Plate  modal  frequencies 

Acoustical  damping,  obtained 
experimentally 


Following  Symbols  Are  Used  Only  in  Program  for  o>  / 


Lower  limit  of  frequency  to 
vary  around  a  given  <omn 

Upper  limit  for  w  /-  wmn 

Increment  size  for  intervals 
between  WI  and  WF 


Calculated  Output  in  Inch-Pound-Seconds 


a  h  m 2  n2 d>{  \)  (y)  <£  ( y ') 


Program 

Symbol 


Y(x,y\x',y',o>) 


WMN  (M,N) 
FA(M,N) 


Plate  shapes,  by  Warburton  method 

EIGEN  (M,N) 

Power  spectrum: 

(-Kto,8*/Ue)  2 

X(.v  ) 

POFW* 

Equation  27  of  Reference  21:  cross 
spectral  density,  assuming  panel  modes 
well  separated. 

ANS* 

Equation  27  x  w4 

PWRSD* 

(AMN2  .  «)2XAMN2  +  (comn+  a>)2) 

DEN 

*POFW,  ANS  PWRSD  have  real  and  imaginary  parts  printed  out. 
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TABLE  2C  (Continued) 


I 

! 


TABLE  2C  (Continued) 


FA{1,2),  and  w  on,  in  WMN  array,  i.a.,  via  MUP  *  NUP  *o  eomplera  FA(Ml)P,NUP)  array 
For  caia  a>  4  a;mn  only:  1  cord  for  each  (M,N)  :•  (1,1),  (1,2),  •  •  •  (1,N),  (2,1),  •  •  •  io  on 
V  12  l  24  36 


SUBPROGRAM  D 


Subprogram  D  represents  a  generalization  of  Subprogram  C  to  include  modal-cross 
coupling.  Data  descriptions  of  the  subprograms  are  identical,  except  that  Subprogram  D 
quires  a  second  set  of  modal  input  data.  These  data  are: 

TABLE  2D 

Generalization  of  Subprogram  C  to  Include  Modal  Cross  Coupling 

(Data  descriptions  of  Subprograms  C  and  D  are  identical  except  that  Subprogram  D 
requires  a  second  set  of  modal  input  data  as  indicated  below) 


Symbol  for  Cross- 
Coupled  Modes 

Symbols  for 

Uncoupled  Modes* 

PLOW 

for  p  modes 

MLOW 

PUP 

for  p  modes 

MUP 

DP 

for  p  modes 

DM 

QLOW 

for  q  modes 

QUP 

for  q  modes 

NUP 

DQ 

for  q  modes 

DN 

GP 

for  p  modes 

GM 

GQ 

for  g  modes 

GN 

KP 

for  p  modes 

KM 

KQ 

for  q  modes 

KN 

WPQ(P.Q) 

WMN  (M,N) 

APQ(P,Q) 

FA  (M,N). 

'Analogous  to  data  in  Subprogram  C. 

Note:  The  output  will  now  include  the  additional  eigenvalues  EIGN  (P,Q) 
for  the  (P,Q)  modes.  DENCOM  is  the  denominator  of  Equation  (26), 
Reference  22. 


TABLE  2D  (Continued) 


TABLE  2D  (Continued) 


i 


DO  778  M-M10W,  MUP,  DM 
00  7781  P  -  PLOW,  PUP,  DP 
DO  776  N  -  NLOW,  NUP,  DN 
DO  7761  Q  -  QLOW,  QUP,  DQ 


TABLE  2D  (Continued) 


Column  Hoadings  for  Input  Forms  on  Data  Cards 


5  10  30  50  60  80 


And  at  many  cards  as  nacdod  to  complata  tha  ARG(NW)  orroy  (NW  cards). 


And  at  mony  cords  as  ntadad  to  complata  tha  WGT(NW)  array  (NW  cards). 


k 

I 
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TABLE  2D  (Continued) 


APPENDIX  B4  -  TEST  RUNS 


Results  obtained  from  the  computer  programs  of  Table  2  are  indicated  in  Figures 
7  - 10.  Figures  7  and  8  are  obtained  from  Subprogram  A,  Figure  9  from  Subprogram  B,  and 
Figure  10  from  Subprogram  C.  The  figures  show  test  runs  for  modal  mean  square  displace 
ment,  turbulence  pressure  spectrum  levels,  and  displacement  spectral  density. 


n  n  n 


TABLE  3 

Computer  Listings  for  Subprograms  A,  B,  C,  and  D  -  Maestrelio 


Table  3A  -  Computer  Listing  for  Subprogram  A 
(Semifrozen  Convection  —  Model  A) 


JIBFTC  TURAD 

REORGANISED  PROGRAM  FOR  COMPUTING  TRIPLE 
INTEGRAL 

USING  SIMPSONS  RULE 
DIMENSION  VOL  1 20# 10 ) 

DIMENSION  F3( 3 ) * ANSI  3 ) 

DIMENSION  IXYZ< 10.1*50*3) *IYZ( 20*1)* I Y(l) # 

1G2I401 *20) *G3( 11 *1 ) *YY( 11 ) * TEMPI ( 11 ) *G5( 4000) 

DIMENSION  PAR AM 1 101 ) ♦ THETA  1 101 ) 

DIMENSION  AK(3)*AN(3)*7ITLE(20) 

DIMENSION  OMEGA! 20  *10 ) ♦ DAMP  1 20*10) 

DIMENSION  FA(20*10«3)*FC(20*10«3) *E 1GENI 20*10*3) • FUDGE (20*10*3) 
DIMENSION  UCI 20 ) «DPB2 1 20 ) 

REAL  IXYZ* I YZ  * IY 
INTEGER  DM.DN 
READ (5.13)  TAU 

13  FORMAT ( F10.0 ) 

WRITE( 6*801 )  TAU 
801  FORMAT! 1H1./5H  TAU-E15.6) 

READ (5*103)  H  * XO * YO  *XOP ♦ YOP » FUCSQ *P82  *FM2  * AX • 

1AN.TITLE 

103  FORMAT (14(F10«0/)«(10A6) ) 

WRITE(6.201)  TITLE 
201  FORMAT (20A6) 

WRITE! 6*203)  FUCSQ, Pe2*FM2 *A< .AN ,XO*YO* 

1XOP* YOP 

203  FORMAT ( 14H0FUC  SQUARED-  E16.8* 

X  8H  RHO-BAR  9H  SQUARED-E16.8 * 

1  11H  M-SQUAREO-E16.8/ 

24H0X1-E16.8.4H  K2-E16.8.4H  X3-E16.8/ 

34H  A1=E16.6*4H  A2-E16.8.4H  A3«E16*8/ 

44H  X0-E16.8.4H  YO-E16.8.5H  XOP-E16.8.5H  YOP-E16.8) 

READ ( 5 • 102 )  KUC*(UC(I)iDPB2(I),I  «  1*KUC) 

102  FORMAT (I10/(2F10«0)) 

WRITE(6.204)  (UCI I ) »DPB2 ( I) *  I  ■  1*KUC) 

204  FORMAT ( 1H07X2HUC13X4HDPB2/I 1H  2E16*8)> 

99  READ! 5.1)  ZUP»YUP»H.MLOW»MUP*DM,M$TEPS*NLOW*NUP»DN*NSTEPS 


00  * 
0010 
20 
30 
40 
50 

0060 
0070 
0  80 
0090 
0100 
0110 
0120 
0130 
0140 
0150 
0160 
0170 
0180 
0190 
200 
0210 
0220 
0230 
0240 
0250 
0260 
0270 
0280 
0290 
0300 
0310 
0320 
0330 
0340 
0350 
0360 
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TABLE  3A  (Continued) 


1  FORMAT (3(F10.0/)*(4I10))  0370 

WRITE! 6*2 )MLOW»MUP»DM*MSTEPS*NLOW*NUP  *DN*NSTEPS  9380 

2  FORMAT ( 9H0M  FROM  I5*4H  TOJ5»7H  DK»I3*  0390 

112H  A  TOTAL  OF  I5*7H  STEPS/9H  N  FROM  15*  0400 

24H  T0I5*7H  DN«I5*12H  A  TOTAL  0F15*7H  STEPS)  0410 

WRITE<6«202)  ZUPiYUP*H  0420 

202  FORMAT (3H  A*E16«8»5H  B«E16.8*5H  H-E16.8)  0430 

READ( 5* 101 )  ( (OMEGA (M*N ) *M«1 *20 ) *N“1 *3)  0440 

101  FORMAT  <  F10»0 )  0450 

WRITE(6*205) ( (OMEGA (M*N) *M«MLOW*MUP*DM) *  0460 

1N=NL0W*NUP*DN)  0470 

205  FORMAT ( 7HOOMEGA«/( 8E16*8 ) )  0480 

DO  7  N=1 *NUP*DN  9490 

DO  7  M=1*MUP*DM  0500 

7  DAMP (M*N)»»01  0510 

READ(5*104)  ( (DAMP! M*N) *M*1 *20 ) *N«1 *3 )  0520 

104  FORMAT ( F10*0 )  0530 

WRITE(6*206)  ( ( DAMP (M,N t  *M«MLOW*MUP*DM) •  0540 

1NSNL0W*NUP*DN)  0550 

206  FORMAT(6HODAMP«/( 8E16»8 ) )  0560 

Nl*8  570 

READ(5*207)  NP* < PARAM! IP > *  IF  «  1*NP)  0580 

207  FORMAT! !10/(6F10*0) )  0590 

A*ZUP  600 

B“YUP  610 

B1»AK( 1 )**2*FUCSC  0620 

B2*AK ( 2 ; **2*FUCSQ  0630 

B3"AK( 3 )**2*FUCSQ  0640 

84*AN ( 1 ) *AK (l)*FUCSO  0650 

B5«AN(2)*AK(2)*FUCSQ  0660 

B6«AN(3)#AK(3)*FUCSQ  0670 

B7«AN(1)/AK(1)  0680 

B8*AN( 2 ) /AK(2 )  0690 

B9«AN(3)/AK<3)  0700 

C1«4.0/(A*B)  0710 

02-3*14159265  0720 

C3-1./C2  *730 
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TABLE  3A  (Continued) 


C4*C2*C2  740 

C5*(A*B*PB2)/(2*0*C4*FM2*<B7+B8+B9) )  0750 

C5*C5*32. 2*32. 2*12. *1?.  0760 

C6*C4/ ( A*B )  0770 

00  10  M*MLOW.MUP*DM  0780 

DO  10  N*NLOW.NUP*DN  0790 

XM*M  800 

XN«N  810 

XO-A/2.  820 

YO*B/2.  830 

IF(M-M/2*2.NE«0)GO  TO  43  0840 

XO*A/2.-A/(XM*2. )  0850 

43  IF(N-N/2*2«NE*0)GO  TO  44  0860 

YO«B/2.-B/(XN*2* )  0870 

44  XOP*XO  380 

YOP*YO  190 

DAMP (M«N ) *0AMP (M*N  )  / 1 0 •  0  )00 

DO  45  L*l*3  0910 

FA(M.N.L)*DAMP(M*N(/2**OMEGA(M»N)  0920 

FA(M.N*L)*FA(M*N.U*0»5  0930 

FC(M»N*L ) “OMEGA (M *N ) /FA(M*N*L)  0940 

FU0GE(M*N*L )*XM*XN*OMEGA(M*N ) *(FA<M*N*L )**2.0+OMEGA IM*N)**2*0)  0950 

EIGEN tM.N.L)«Cl/FUDGE(MiNiL)*SIN(XM*C2*XO/A)*SlN(XN*C2*YO/B)*  0960 

1SIN(XM*C2*X0P/AJ*SIN(XN*C2*Y0P/B)  0970 

45  DAMP (M*N )*DAMP (M*N ) *10*  0980 

10  CONTINUE  990 

WRITE! 6* 1003 )  1000 

1003  FORMAT < 33HOXO«XOP« YO*YOP »ANO  THEY  VARY  WITH  1010 

1 17H  THE  MODE  NUMBERSI  1020 

DO  46  L*l*3  1030 

WR ITE( 6*3 ) ( ( EIGEN (M*N»L ) »M*MLOW«MUP*DM) »N*NLOW*NUP  *DN )  1040 

3  FORMAT<7HOE!GEN«/<8E16.8))  1050 

46  CONTINUE  1060 

DO  47  1*1*3  1070 

WRITE(6*48)((FA(M*N*L) *M*MLOW*MUP*DM) .N=NLOW*NUP*DN )  1080 

46  FORMAT ( 13H0A(M»N»DAMP I*/ ( 8E16.8 ) )  1090 

47  CONTINUE  1100 
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TABLE  3A  (Continued) 


CALL  VOLUMf  A*B*MLOW*MUP*DM*NLOW*NUP*DN*VOL )  1110 

NUPM»NUP-1  1120 

00  777  KU*1 *KUC  1130 

CON5T*C5*DP82 (KU)  1140 

WRITE(6*303 )  UC(KU) KONST  1150 

303  FORMAT (4H  UC**£16*8*8H  CONST* *E16.8 )  1160 

00  778  M*MLOW*MUP*DM  1170 

XM*M  1180 

DO  779  IP*1*NP  1190 

779  THETAt IP )*PARAM{ IP ) /XM/UCOCU) *A  1200 

WRITE! 6*780 )  ( TH£TA{ IP ) *  IP  «  1*NP|  1210 

780  FORMAT (7H  THETA*/(7£16.8 ))  1220 

IF(THETA(IT).GT»100.)  GO  TO  999  1230 

XL0W=0»  1240 

DX*l./(20.#OMEGA(M«NUPM)/2./3*14159265}  1250 

IUP*5* /0X*THETA(NP) +1»  1260 

IF(  IuP#GT.  3599 )  IOP«  3599 

IF(IuP-IUP/2*2)  501 *500*501  1270 

500  IUP*IUP+1  1280 

501  IUP  *  IuP  +400  1290 

502  DX«(THETA(2)“THETA(l))/2«  1300 

ZL0W«-A  1310 

JUP*20*M+1  1320 

ZJUP*JUP-1  1330 

OZ*2«*A/2JUP  1340 

YL0W*0*  1350 

KUP  *  10*  NUPM  +  1  1360 

YKUP*KUP-1  1370 

DY*B/YKUP  1380 

DO  11  I=1*IUP  1390 

65 ( I i*l«  1400 

IF<I.EQ.401)GO  TO  11  1410 

IF(I.NEil»AND.I«NE.IUP)  GO  TO  510  1420 

GO  TO  511  1430 

510  G5m=63(n*2.  1440 

5-11  IFU-I/2*2.EO.O)  GO  TO  513  1450 

GO  TO  11  1460 

513  G5  < I )=G5 (i ) *2*  1470 
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TABLE  3A  (Continued) 


11  CONTINUE  1480 

Z*ZLOW  1490 

00  21  J*1«JUP  1500 

XM*M  1510 

D1«XM*C2*Z/A  1520 

D2*C0S( 01 )  1530 

62(J«M)«02+1./(XM*C2)*(SIN(ABS(DH)-ABS(D1)  1540 

1*D2)  1550 

IF(J.NE.1.AN0.J«NE.JUP)  GO  TO  520  1560 

GO  TO  521  1570 

520  G2( J»M)«G2(J*M)*2*  1580 

521  I F ( J-J/2*2 «EO»0 )GO  TO  525  1590 

GO  TO  21  1600 

525  G2(J*M)»G2(M»M)*2»  1610 

21  Z=Z+DZ  1620 

Y*YL0W  1630 

DO  31  K«1jKUP  1640 

DO  30  N>NLOM*NUPiON  1650 

XN*N  1660 

D3*XN*C2*Y/8  1670 

04-C0SID3)  1680 

G3(KtN 1*04+14 /I XN*C2)*(SIN( 03 )-D3*D4t  1690 

IF ( K4NE4I t ANDtKiNE  t XUP )  GO  TO  530  1700 

GO  TO  531  1^10 

530  G3(KiN)*G3(K»N)*24  1720 

531  IF(K-K/2*24E0401  GO  TO  533  1730 

GO  TO  30  1740 

533  G3(X»N)«G3IXtN)*24  1750 

30  CONTINUE  1760 

31  Y*Y+0Y  1770 

Y*YLOW  1780 

DO  39  K*l*tCUP  1790 

YY(K)*Y*Y  1800 

39  Y*Y*DY  1810 

DO  40  Ll«l»3  1820 

DO  40  N*NLOW»NUP*DN  1830 

00  40  IT*1 »NP  1840 
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TABLE  3A  (Continued) 


40  IXYZ(M«N»1T*L1I«0. 

KAPPA-0 

X-XLOW 

00  160  f*l#IUP 
I F  ( T  AU  .EO.O.O)  GO  TO  630 
El  «  UC(KU)*(TAU-X) 

GO  TO  632 

630  El  ■  UC(KU)*X 
632  CONTINUE 

DO  50  N«NLOW*NUP#DN 
50  IYZ(M»N)«0. 

Z-ZLOW 

DO  120  J«1»JUP 
E2«(Z-E1J*(Z-E1) 

E4-B1+E2 

E5-B2+E? 

E6-B3+E2 
DO  60  K«1*KUP 

60  TEMPI ( K)«B4/ ( E4+YY ( K) »+B5/ <  E5+YY  <  K  U+B6/ <  E6+YYI K) ) 
DO  70  N*NLOW»NUP#DN 
70  I Y( N )=0* 

DO  90  K»1»KUP 
DO  90  N*NLOW*NUP#DN 
90  IY(N)=IY(N)+G3(K.N)*TEMP1(K) 

DO  100  N-NLOWfNUPtDN 
100  IY(N)=lY<N)*DY/3. 

DO  110  N«NLOWiNUP»DN 
TEMP-IY(N) 

110  IYZ(M«N)«IYZ(MtN)+G2(J»M)*TEMP 
120  Z=Z+DZ 

DO  130  N-NLOWiNUPiDN 
130  IYZ(M*NI»lYZ(M*NS*0Z/3. 

1001  CONTINUE 

DO  140  NaNLOWiNUP«DN 
TEMP*I YZ (M#N ) 

XM«M 

XN«N 


1850 

1860 

1870 

1880 

1890 

1900 

1910 

1920 

1930 

1940 

1950 

1960 

1970 

1980 

1990 

2000 

2010 

2020 

2030 

2040 

2050 

2060 

2070 

2080 

2090 

2100 

2110 

2120 

2130 

2140 

2150 

2160 

2170 

2180 

2190 

2200 

2210 
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TABLE  3A  (Continued) 


F1*XM»XN*C6  2220 

F2*0MEGA (Mf N ) *A8S ( X )  2230 

00  140  LI* 1 *3  2240 

F3(1.;:-FA(M«N»U)*ABS(X)  2250 

IF!F3!L1).GT.5*)G0  TO  140  2260 

F6«F1*EXP{-F3(L1 ))*(SINIF2)+FC(M*N*L1 )*C0S( F2 ) 1  2270 

00  137  IT*1 »NP  2280 

IF(X.GT,5.*TH£TA! IT) > GO  TO  137  2290 

IF(TAU.EQ.0«0)  GO  TO  634  2300 

G6  «  0EXP(-0A6S(  (TAU-XI/THETAUT) ))  2310 

GO  TO  636  2320 

634  G6*DEXP(-DABS(X/THETA( IT) ) I  2330 

636  CONTINUE  2340 

G1«2.*F6*G:*G5( II  2350 

IXYZ!M*N»lT»U)=IXYZ!M«N*IT*Ll)+Gl*TEMP*DX/3.  2360 

137  CONTINUE  2370 

140  CONTINUE  2380 

IF(KAPPA«NE»0)GO  TO  160  2390 

!F(I.NE.401)GO  TO  160  2400 

KAPPA* 1  2410 

DX*l./(20.*OMEGA(M.NUPM)/2«/3» 14159265)  2420 

GO  TO  1001  2430 

160  X*X+OX  2440 

DO  601  N*NLOW*NUP*DN  2450 

IF(THETA!IT).GT*100.)  GO  TO  999  2460 

WRITE! 6* 141 )  MtN  2470 

141  FORMAT (3H1M*I5»3H  N*I 5//45X6H! (M*N ) 38X*18HI (M»N>»EIGEN*CONST//  2480 

12X5HTHETA4X1 1H0MEGA*THETA6X1 1H0AMP*1 »/10«5X7HDAMP“l »9X8HDAMP*10»  2490 

28X1 1HDAMP* 1 • /10*5X7H0AMP*1 «9X8HDAMP*10»7X5HPARAM)  2500 

DO  601  IT*1 *NP  2510 

DO  602  L2*1.3  2520 

602  ANS!L2)-IXYZ(M»N,IT.L2)*EIGEN(M#N*L2)*CONST  2330 

T* THETA! IT )*OMEGA(M iN )  2540 

WRITE(6»142)THETA(IT)»T*(IXYZ!M#N*IT»L2)*L2*1*3)*! ANS! L2 )*L2»lt3)i  2550 

1PARAM! I T )  2560 

142  FORMAT!1X.F9.6»E14.6*6E16«8*2X*F10»5)  2570 

601  CONTINUE  2580 
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TABLE  3A  (Continued) 


778  CONTINUE  2590 

777  CONTINUE  2600 

999  STOP  2610 

END  2620 

SIBFTC  VOLUME  2630 

SUBROUTINE  VOLUM< A«B#MLOW«MUP *DMtNLOW#NUP#DN*VOL >  2640 

INTE6ER  DMiDN  2650 

DIMENSION  VOL (20 • 10)  2660 

PI*3«14159265  2670 

DO  10  N*NLOV»NUP*DN  2680 

XN*N  2690 

DO  10  M*MLOW«MUP#DM  2700 

XM*M  2710 

V0L(M#N)«0.  2720 

IF(N-N/2*2»EQ.O(GO  TO  10  2730 

IF(M~M/2*2»EQ*0 (GO  TO  10  2740 

G AMMAN* ( 2»*XN+1« ) *Pl/2*  2750 

GAMMAM* ( 2e*XM+l» )*PI/2»  2760 

XKN*SIN I GAMMAN/2* ) /SINHI GAMMAN/2  * )  2770 

XKM*SIN(GAMMAM/2« ) /SINHI GAMMAM/2 • )  2780 

VOL(MtN)«16.*A*B/GAMMAM/GAMMAN/< 1*+XKM)*144.  2790 

1/(1»+XKN)*SINI GAMMAM/2* I *S 1 N ( GAMMAN/2 • )  2600 

10  CONTINUE  2810 

WRITE! 6.20H (VOLIM.N) iM-MLOW«MUP »DM) *N*NLOW »NUP  »DN )  2820 

20  FORMAT  1 28HOVOLUME  UNOER  EIGENFUNCTION*//  2830 

1 1 8E16«8 ) )  2840 

RETURN  2650 

END  2860 
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Table  3B  —  Computer  Listings  for  Subprogram  B 
(Semifrozen  Convection  —  Model  A) 


1 1 8pTC  ACCROS  00  * 

DIMENSION  RAUTO(IOO) *RCROSS ( 8 ♦ 100 ) »POW(25) *CAK(3)  0010 

DIMENSION  RCRO(8.100)fCROSS(8*100)  0020 

DIMENSION  PDVM25)  30 

DIMENSION  SK10).  TAU(100)*FR(25I*D(3)*A(3)»AD(3) » ADD! 3 ) *DA  0040 

X(3)»XC0RD!25)»T1TLE(12)  *  50 

DIMENSION  P I  2500 !  60 

DIMENSION  SKNE(500).W(1000)  0*70 

1000  FORMAT  1 12A6 )  80 

1001  FORMAT ( 3F8  *4 )  90 

1002  FORMAT  I 3F8  *4 )  0100 

1003  FORMAT ( 3F1 2*6 )  0110 

1010  FORMAT ( 8F9«6 )  0120 

101'  FORMAT ( 12F6«0 )  0130 

1014  FORMAT! 14)  0140 

1015  FORMAT ( 6F1 2.5 )  0150 

1016  FORMAT ( F6«  2 )  0160 

'2000  FORMAT! 1H1 |12A6)  0170 

2001  FORMAT(//7H  All)  =  F8.4»8H  A ( 2 )  =  F844»8H  A!3)  ■  F8.4)  0180 

2002  FORMAT ( 7H  D ( 1 )  =  F8.4«7H  0 <  2 )  *F8»4*8H  DC  3 )  «  F8.41  0190 

2003  FORMAT ( 8H  THETA  »  F12.6*9H  DSTAR  «  F12.6*8H  UC  ■  F12.6)  0200 

2004  FORMAT ( 8H1  TAU  .17H  AUTOCORRELATION  / t F9.6*2X*F12.8 ) I  0210 

2007  FORMAT! 1H1 * 2X . 1HJ«3X« 19H  CROSS  CORRELATION  / ( 3X « I 3t2X»8F8.4 ) )  0220 

2010  FORMAT ( 10X » 3H  SI/I8F9.6)]  0230 

2012  FORMAT! 1X«10F6.0)  0240 

2015  FORMAT! 1H1,2X*10H  K-WAVE  N0*2X«10H  2PI*FREQ. *2X*10H  K-WAVE  NO*2X*  0250 

1 10H  2PI*FRE0«»2X.10H  K-wAVE  NO»2X*10H  2PI*FREO./  (1X*6F12.5>  )  0260 

2016  format ( //6h  tw  =  fs.2)  0270 

2020  FORMAT !1H1|4X«7H  XCORD  »18X«5H  PSD  *18X*7H  POWER  )  0280 

2022  FORMAT (4X«F9«6»14X*F9»6*14X»F9»6!  02?0 

2030  FORMAT! //2Xi3H  I.5X.9H  POWER  K  *9X*9H  POWER  W  I  0300 

2031  FORMAT (3X»3F12*61  0310 

2032  FORMAT (3X»I5t4X»F12«9»7X»F12*9)  0320 

2041  FORMAT (I5«4E15«6)  0330 

LIST  OF  VARIABLES  AND  CONSTANTS  0340 

RAUTO  a  R(TAU)  0350 

RCROSS  ■  R(SIfETA.TAU)  0360 
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TABLE  3B  (Continued) 


POW  *  P(W)U/(TAU**2*DELTA-STAR)  0370 

DSTAR  =  DELTA-STAR  0380 

0(1)  =  K( I )  0390 

FR  *  FREQUENCY  0400 

PI  =  3.1415926  0410 

READ ( 5 » 1000  )  (  TITLE (I ) » 1=1 , 12 )  0420 

WRITE! 6.2000 )  (  T!  TLE ( I) . 1  =  1  *  1 2 )  0430 

READ  ( 5 , 1001 )  (A(n»I  =  l,3)  0440 

READ ( 5  *  1002 )  (D(I)»  1  =  1.3)  0450 

READ! 5 . 1003 )  THET  A.DST  AR.UC  0460 

WRITE! 6.2001 )  (A(I).I=1.3)  0470 

WR ITE! 6,2002 )  (Dll), I  =1,3)  0480 

WRITE! 6 ,2003 )  THETA, DSTAR ,UC  0490 

READ ( 5 , 1010 )  (SI ( I » ,1=1,8)  0500 

WRITE(6.2010)  (SI(I), I  =1,8!  0510 

COMPUTE  AUTOCORRELATION  0520 

SI  =  0,  ETA  =  0  530 

AKC  *  0.0  0540 

DO  10  1=1,3  0550 

CAK(I)  =  A(II/OIII  0560 

10  AKC  =  AKC  +  CAK(I)  0570 

U  «  UC/0.8  0580 

F  ■  DSTAR/U  05  0 

FDUC  =  <1./(F*UC) )**2  0600 

GO  TO  400  *610 

TAU(l)  =0.0  0620 

DO  25  J*l»100  0630 

RAUT  «  0.0  0640 

DO  20  I  *1,3  0650 

ADDUI  =  (A(I )*D( I ) )/(D( I)**2+(TAU(J)/F)**2)  0660 

20  RAUT  =  ADD (I)  +  RAUT  0670 

RAUTO(J)  =  RAUT/AKC  0680 

TAU( J+l )  «  TAU(J)  +  0.00001  0690 

25  CONTINUE  0700 

WRITE(6,2004 )  (TAU( J) ,RAUTO( J) ,J=1, 100)  0710 

C  COMPUTE  CROSS  CORRELATION  0720 

C  ETA  ■  0.0  0730 
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TABLE  3B  (Continued) 


00  16  1=1*8  0740 

16  SKI)  *  SI(  1  )/12.  0750 

00  35  J  *  1(100  0760 

DO  33  r  =  1*8  0770 

RCROU.J)  =  0.0  0780 

00  30  1M  =  1.3  0790 

ADI  1 M)  *  ( A( IMI»0I IM))/(D< IM)*#2+FDUC*!SI< 1 )-UC*TAUt 0800 
30  RCROU.J)  *  RCROI  I  »J)+AO(  I M )  0810 

CROSS! I . J )  *  RCRO!  I  tJ)«EXP(-A8S!Sl I  I )I/(UC*THETA) )  0820 

RCROSS ( I . J )  *  CROSS ( I • J 1 /AKC  0830 

TAUIJ+l)  «  tau(J)  +  0.00001  0840 

33  CONTINUE  0850 

35  CONTINUE  0860 

WRITE! 6.2007 )  ( J . ( RCROSS! I . J ) . I  =  1 • 8  I • J=1 » 100 )  0870 

COMMENT  FIG. 2  EOTN.  4  SEMI-FRP2EN  CASE  0880 

C  COMPUTE  POWER  0890 

400  CONTINUE  0900 

REA0I5. 10121  (FR( I ) *1*1.25)  0910 

WR ITE!  6.201 2 )  (-FR  (  I ) .  I  =  1.25)  0920 

READ ( 5 ♦ 1016 )  TW  0930 

WRITE! 6.2016)  TW  0940 

Tw  ■  TW**2  0950 

WRITE! 6.2020 )  0960 

00  45  J  *  1.25  0970 

POW(J)  =  0.0  0980 

00  40  I  *  1.3  0990 

DA (  1  )  =  A(I)*EXP(-0(I!*6.2832*FR(J)*F)  1000 

POW!  J)  *  POW!  J)  +  DAU  )  1010 

40  CONTINUE  1020 

XCORO(J)=(6.2832*FR(J)*DSTAR)/U  1030 

POW! J)  *  POW! J)*DSTAR*TW/U  1040 

45  CONTINUE  1050 

WRITE! 6.2022 )  ( XCORO! J ) .POW! J ) .POW! J ) . J  =1.25)  1060 

GO  TO  500  1070 

COMMENT  COMPUTE  P(Kl.W)  1080 

COMMENT  SKNE  IS  WAVE  NUMBER  K-ONE  1090 

COMMENT  CORRESPONDS  TO  GRAPH  IN  MAESTREU.O*  PAGE  415.  FIG. 5.  FOR  2*PI  1100 
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TABLE  3B  (Continued) 


C  *FR  VS  P(K-0NE.2*PI*FR>  1110 

Wl  «  -48000.  1120 

SKI  *  Wl  1130 

WF  «  48000.  1140 

SKF  «  WF  1150 

DW  ■  2000.  1160 

M  «  (WF-WIl/DW  +  1.  1170 

DSK  *  DW  1180 

N  *  M  1190 

SK  «  SKI  1200 

DO  50  I  «  1 *M  1210 

SKNE(I)  «  SK  1220 

WW  »  Wl  1230 

DO  49  K  «  l.N  1240 

W(K)  =  WW  1250 

FAC  *  (THETA«F*UC!/<tl.+THETA*THETA*(WlK>+SkNEtin»#2)*2.*Pn  1260 

ARF  *  0.0  1270 

DO  55  J  *  1.3  1280 

FAR  *  A(J)»EXP(-ABS(W(K) )«D(J)*F)  1290 

ARF  *  ARF  +  FAR  1300 

55  CONTINUE  1310 

PKW  *  FAC*ARF/AKC  1320 

PW  «  PKW*PI#( 1 «+THETA#THETA* ( W( K l+SKNE ( I ) ) **2 /THETA )  1330 

WRITE! 6. 2041 )  I .PKW.PW.W(K) *SKNE( I )  1340 

WW  ■  WW  +  DW  1350 

49  CONTINUE  1360 

SK  *  SK  +  OSK  1370 

50  CONTINUE  1380 

500  CONTINUE  1390 

STOP  1400 

END  1410 
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Table  3C  —  Computer  Listings  (or  Subprogram  C 
(Semifrozen  Convection  -  Model  A) 


COMMENT  REMOVE  CARO  1 030 .  .  .RE  AD  (5  *  3*)  W  l  * OW *WF  ...  FOR  CASE  W  »  WMN 
COMMENT  NO  iSFTC  CARO  FOR  RUN  AT  APL 

COMMENT  NOW  RUNNING  AT  APL  ON  IBM  360/91  0000 

MULTIPLE  INTEGRAL  PROGRAM  no.  for  lm  by  fg  0010 

USES  GAUSSIAN  OllAOR ATURFON  FOUR  INTEGRALS  0020 

GENERAL  CASE  WITH  NO  COUPLING  0030 

ANSWER  IS  IN  INCHES  SOUAREO  PER  SEC.  0040 

70 

IMPLICIT  REAL*8( A-H.O-Z)  0  80 

INTEGER  DM, ON  90 

REAL  KN  *KM  0100 

COMPLEX  *16  ARGC0M*E2*FV4*SUM4  *F V5*SUM5  * FV6 • SUM6» ANS» ANS INT  tPWRSO  0110 

DIMENSION  GM ( 20 ) *GN ( 10) *  KN  ( 10) *KM ( 20 )  0120 

DIMENSION  TITLE  I  20  I *AK(4)*AN(4) .WMN < 20 . 10 ) *  FA ( 20 • 10 ) * FC ( 20* 10  I  *  0130 

1EIGEN(20*10),wGT(21> .ARGI21 )  0140 

C  READ  AND  WRITE  INPUT  DATA  0150 

C  NO.  OF  GAUSSIAN  POINTS  AND  NO  OF  TERMS  IN  SUM  OF  A  AND  K  0160 

READ(5*9)NW*NAK  0170 

READ"!  5*33)  (ARG(  I  ) *  I  =  1 *NW )  0180 

RE AD (5*33)1 WGT(I).I=1*NW)  0190 

33  FORMAT ( 020.8 )  0200 

PI*3. 14159265358979323  0210 

P 1 2*2. *P  I  0220 

P I 3*PI **3  0230 

READ(5.1)(T!TLEt!>»!=l*20)  0240 

1  FORMAT  I 20A4)  0250 

WRITE(6*2' ( TITLE( I  I  *1*1*20)  0260 

2  FORMAT ( 1H1 *  20 A4 )  02^0 

READ(5*3)X«XP.Y.YP  0280 

RE AD (5*3) ( AK  ( I ) *  I  -  1 *NAK )  0290 

READ(5.3)(AN(I)*I=1*NAK)  0300 

READ(5.3)A.B.FM*uE*DEL.PB2  0310 

3  FORMAT ( 6F1 2.6 )  0320 

FM2*FM*FM  0330 

READ  I  5 .3 )UC*TH  0340 

ALPH1*. 02*750. /DEL  0350 

ALPH2*3. 8/DEL  0360 
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TABLE  SC  (Continued) 


TH*1 •/(ALPH1*UC*DEL ) 

WRITE(6,7)A.B»  FM2 .UE.DEL »PB2 /UCtTH 

111 HMAT!f3<UR=P°^U5^  B.F10.4.15M  MASS  AQUARED*  £15.6. 

26H  UC^EIS.^AH  ?^5.6/)"El5*6*17H  P  ^  S°UARED=  E15‘6' 
READ ( 5*9)MLOW»MUP*DM*NLOW.NUP »DN 
9  FORMAT (1615) 

R£AD(5*3)(GM(M).M=1 iMUP ) 

READ (5.3) ( GN ( N  J *N=1»NUP) 

READ (5 *3) <KM(M) «M«1*MUP) 

READ (5. 3)  <KN(N)»N*1.NUP) 

DO  2000  M*1,MUP 

2000  6M (M ) =GM(M) *P I 
DO  2001  N«1.NUP 

2001  GN  (N )=GN ( N ) *P  I 

12  FOnS«T f Fioli?""'" •~p»  ’  •««*> 

u  ?Si;SJt;iSii^5"i7lSU5l^ST;"u‘>,D"’*N=NLOW*”UP*D"» 

ud^ rl5, 1  X?  i  ( ( FA  (M*N  )  *M»1  .MUP  )  .N*l ,NUP  ) 

,  WRITE(6. 18 ) ( (FA(M«N1 »M*1 .MUP) #N=1»NUP ) 

18  FORMAT(8HOA(M»N)=  /(8E14.6)) 

C1*4./(A*B) 

17  FORMAT ( 7H  CONST*  E15.6) 

WR?teI6^17*cONST^^*^*^*#A#^*6*^^  *  pJ  3*FM2 ) 

DO  50  M=MLOW.MUP«DM 
XM*M 

XMPI *XM*PI 

GMXA2=GM(M) * ( X/A-# 5 ) 

GMXPA2=GM(M)#(XP/A-,5) 

SXMC2 A=Oc°S (GMXA2 )+KM(M) *DCOSH ( GMXA2 ) 

5y/.prA/n^c^*°)SXMC2A"DSlN<GMXA2,+KM{«>#DSlNH(GMXA2) 
r  S^MXPA2  1 +ICM 1 M  >  *DCOSH  ( GMXPA2 ) 

00  45  N=NLOW.NUP|DN 


0370 

5380 

0390 

0400 

0410 

0420 

0430 

0440 

0450 

0460 

0470 

0480 

0490 

0500 

0510 

0520 

0530 

0540 

0550 

0560 

0570 

0580 

0590 

0600 

0610 

0620 

0630 

640 

0650 

0660 

0670 

0680 

0690 

0700 

0710 

0720 

0730 
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TABLE  3C  (Continued) 


XN*N 

XNPI *XN*Pt 
OGA«WMN(M,N) 

FC!M.N)*OGA/FA(M,N) 

FuOGE*XM»XM»XN»XN 
GNYB2=GN!N)»< Y/B-.5) 

GN Y°B2  rGN (NI*(YP/B-*5) 

E!G£N(M*N)*C1 /FuDGE*S INXXP* ( OCOS 1 6NYB2 ) +KN ( N ) *DCOSH (GNYB2 ) 1* 

! ( OCOS ( GN YPB2 I +KN ( N ) *DCOSH( GNYPB2 ) 1 
IF(N-N/2*2»EQ«0)EIGEN(M*N) *C1 /FUDGE* S INXXP* 

1  (OSlN(GNYB2)+KN(N)*DSINH(GNYB2> ) * { OS  I N t GNYPB2 ) +KN ( N ) »DSI  NH 
2IGNYPB2 ) I 

WRITE! 6« 16 )X.Y#M,N*EIGEN(M»N) »FA(M,N> 

16  FORMAT (1H02F12»6*2I4»6E13«6) 

*S  CONTINUE 
50  CONTINUE 

WR  I TE ( 6  » 19 1 

19  FORMAT ( 1H1 *  3X  « 1HM  *  3X  * 1HN  » 1 AX  * 1HW  » 1 1 X  t 4HP0FW  * 12X  »3HWMN  * 12X  *3HDEN  * 
1/18X.8HANSINT  R*  7X«8HANSINT  ItlOX*5HANS  R*10Xt5HANS  I.8X.7HPWRSO 
2R  » 8X *7HPWRS0  I  /) 

UCTH*UC*TH 

00  776  M*MLOW «MUP • OM 
XM*M 

XMPI *XM*PI 
AMPI«A/(XMP!*UCTH) 

00  776  N*NLOW *NUP • ON 
XN*N 

XNPI *XN*P I 

BNP  I *B/ ( XNP I *UCTH ) 

RE AO ( 5  *  3 ) Wl »DW *WF 
NWW* (WF-Wl 1 /DW+1. 

NXO*NW*M 

NYO»NW*N 

NXOP*NW*M 

NYOP«NW*N 

OGA«WMN(M,N) 

OGA2*OGA*OGA 
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TABLE  3C  (Continued) 


FAll*FA(M«N)  mo 

FAL12=FAL1*FAL1  1120 

W=WI  1130 

00  150  MM1=1*NWW  1140 

ANSINT=0.  1150 

W2«W*W  1160 

DEN* (FAL12+(0GA-W I **2 ) * ( FAL12+(0GA+W 1**2)  1170 

SUMAK=0«  1180 

DO  120  IS=1*NAK  1190 

120  SUMAK*SUMAK+AN! IS ) *DEXP< -AK ( IS ) *W*DEL/UE }  1200 

POFW*SUMAK*PB2*DEL/UE  1210 

SUM6*0.  1220 

DO  500  11*1 #NXO  1230 

1 10* ( 1 1-1 ) /NW  1240 

!1R*I1-NW*I1Q  1250 

XO*PI*( «5+«5*ARG( I 1RI+FLOAT (110) )  1260 

XOA*GM ( M ) ♦ ( XO/XMP 1 -«5 ;  1270 

SFX0*DC05 ( XOA ) +KM ( M ) *DCOSH ( XO A )  1280 

1 F ( M-M/ 2*2 . EQ  *0 ) SFXO=DS ! N ( XOA ) +KM ( M ) *DS 1 NH ( XOA )  1290 

SUM4*0.  1300 

DO  300  Kl  =  l »NX0P  1310 

K1  Q*(K1-1)/NW  1320 

K1R*K1-NW*K10  1330 

X0P«PI *( »5+»5*ARG( KIR l+FLOAT (X 10 )  1  1340 

X0X0P=X0“X0P  1350 

£1*DEXP !~A/XMPI*ALPH1*DABS( XOXOP  )  )  1360 

ARGCOM=DCMPLX(O.DO,-W*A/(UC*XMP1 )*XOXOP)  1370 

E2*CDEXP 'ARGCOM)  1380 

X0PA«GH(M)*(X0P/XMPI-.5)  1390 

SFXOP*DCOS  (  XOPA )  +(CM  { H )  *DCOSH  (  XOP  A )  1400 

IF(M-M/2«2.EQ.O)SFXOP=DSIN(XOPA)+KM(M)*DSINH(XOPA)  1410 

FV4*  SFX0P*E1'E2  1420 

SUM4*SUM4+FV4*WGT ( KIR ) *P I /2 .  1430 

300  CONTINUE  1440 

FV6»SUM4*SFXO  1450 

SUM6*SUM6+FV6*WGT ( IlR)*PI/2«  1460 

500  CONTINUE  1470 
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TABLE  3C  (Continued) 


SUM5*0.  1480 

00  400  J1*1.NY0  1490 

J10«(J1-1)/NW  1500 

J1R*J1-NW*J10  1510 

Y0*PI»( ,5+.5»ARG( J1R1+FL0ATIJ10) )  1520 

YOB«GN(N)»(YO/XNP!-.5 )  1530 

SFYO*DCOS( Y08!+KN(N)*0C0SH( YOB)  1540 

!F!N-N/2*2.EQ.O)SFYO*DS!N< YOB l+KN (N ) *DS INH( Y08 >  1550 

SUM3*0.  1560 

00  200  LlM.NYOP  1570 

LlO-lll-ll/NW  1580 

L 1R»L1-NW«L1Q  1590 

YOP»PI*(.5  +  .5*ARG(L1R)+FLOATU10) )  1600 

YOYOP* YO“YOP  1610 

8NPI*8/(XNPI*UCTH)  1620 

E3*DEXP(-B/XNPI»ALPH2*DABS(YOYOP  i  )  1630 

YOPB«GN(N)*(YOP/XNPI-«5)  1640 

SFYOP»DCOS( YOPB)+KN(NI»DCOSH| YOPB)  1650 

IF(N-N/2*2.E040)SFYOP=OS!N( YOPB ) +KN (N ) *DS INH t YOPB )  1660 

FV3*SFYOP*E3  1670 

SUM3*SUM3+FV3»WGT(LlR)*PI/2.  1680 

200  CONTINUE  1690 

FV5«SUM3*SFY0  1700 

SUM5*SUM5+FV5*WGT(JlR)»PI/2.  1710 

400  CONTINUE  1720 

ANSI NT-SUM6*SUM5  1730 

ANS»ANSINT*CONST#POFW*EIGENIM#N)/DEN  *C1  1740 

PWRS0»AnS»W«*4  1750 

WRITE! 6 ,20 )M»N  *W»POFW*E I  GEN (M  »N ) *DEN  1760 

20  FORMATUX.2I4.6E15.6)  1770 

WRITE(6,£: 'ANSINT«ANS*PWRSD  1780 

21  FORMAT (llXt6E15e6/l  1790 

W»W+0K  180C 

150  CONTINUE  1810 

776  CONTINUE  1820 

778  CONTINUE  1830 

STOP  1840 


END  1850 
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Table  3D  —  Computer  Listings  for  Subprogram  D 
(Semifrozen  Convection  -  Model  A) 


c  multiple  integral  program  no*  for  lm  by  FG  0000 

C  USES  GAUSSIAN  QUADRATUREON  FOUR  INTEGRALS  0010 

COMMENT  GENERAL  CASE  WMN  AND  WPQ  0020 

ANSWER  IS  IN  INCHES  SQUARED  PER  SEC.  0030 

AO 

IMPLICIT  REAL*8(A-H,0-Z)  0  50 

INTEGER  QLOW*GUP»DQ»PLOW.PUP»OP.P*Q  0060 

INTEGER  DM*DN  70 

REAL  KP *KQ  80 

REAL  KN.KM  90 

C0MPLEX*16  DENCOM  0100 

COMPLEX  *  16  COM 1 .COM2 *XNMRTR  0110 

COMPLEX  *16  ARGCOM.E2.FV4.SUMA.FV5.SUM5.FV6 .SUM6.ANS.ANSINT .PWRSD  0120 

DIMENSION  E IGN ( 20. 10 )  0130 

DIMENSION. APOI20.10) .WPO ( 20 .10 ) »GP( 20 ) .GO! 10 > ,KP( 20 ) .KQ( 3 J >  01A0 

DIMENSION  GM(20)*GN(10).KN(10).KM(20)  0150 

DIMENSION  TITLE! 20) ,AK ( 4 ) , AN ( 4 ) .WMN ( 20. 10 ) .FA ( 20. 10 ) »FC( 20. 10 ) .  0160 

1EIG£N(20»10) .WGT ( 21 ) »ARG ( 21 )  0170 

READ  AND  WRITE  INPUT  DATA  0180 

NO.  OF  GAUSSIAN  POINTS  AND  NO  OF  TERMS  IN  SUM  OF  A  AND  K  0190 

READ ( 5  .9  JNW.NAK  0200 

READ ( 5 .33 ) ( ARG ( I ) <  I  =  1 »NW )  0210 

READ(5,33)(WGT(I),t«l.NW)  0220 

33  FORMAT ( D20.8 )  0230 

PI*3. 14159265358979323  0240 

PI2«2.*PI  0250 

P I 3*PI **3  0260 

READ(5.1) (TITLE! I ) .1=1,20)  0270 

1  FORMAT (20A4)  0280 

WRITE! 6.2) (TITLE (11,1=1, 20)  0290 

2  FORMAT! 1H1.20A4)  0300 

READ(5.3)X,XP.Y.YP  0310 

READ(5,3)(AK(I).I=1.NAK)  0320 

RE AD (5, 3) (AN! I ) <1=1. NAK)  0330 

READ(5,3)A,B.FM.UE.DEL»PB2  0340 

3  FORMAT ( 6F1 2.6 )  0350 

FM2*FM*FM  0360 
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TABLE  3D  (Continued) 


READ ( 5  *  3 ) UC • TH 
ALPH1=. 02*750. /DEL 
ALPH2=3. 8/DEL 
TH*l./(ALPhl*UC*OEL) 

WRITE(6#7)A,8.FM2*UE*0EL*PB2tUC*TH 
7  F0RMAT(3H0A=F10.4«5H  B=F10*4*15H  MASS  AQUARED*  E15.6* 

1UH  u  SU8  E*  E15.6/5H  DEL»E15.6*17H  P  BAR  $QUARED=  E15»6» 
26H  UC=E15.6*4H  TH*E15.6/1 

READ(5*9)MLOW*MUP*DM,NLOW#NUP*DN 
READ(5*9)PLOW*PuP*DP*QLOW«QUP*DQ 
9  FORMAT (1615) 

READ(5«3)(GM(M)«M=i .MUP) 

READ(5.3)  <GP(P!  *P*1*PLIP) 

READ(5.3)(GN(N).N=i*NUP) 

REA0(5*3) (GO(O) *Q*1»QUP) 

READ  (5*3)  OCM(M)  *M*1  »MUP) 

REAO(5.3) (KP(P) *P=1*PUP) 

REA0<5*3) <KN(N) «N*1*NUP) 

READ (5 *3) (KO(O) *0=1*0UP) 

DO  2000  M«  1  *MSJP 

2000  GM ( M )  =GM ( M ) *P I 
DO  2001  N*  1 »NUP 

2001  GN ( N ) =GN ( N I *P I 
DO  2002  P»1*PUP 

2002  GP (P ) *GP ( P ) *P I 
DO  2003  Q*1*QUP 

2003  GO(Q)=GO(OI»PI 

READ (5. 12 ) ( (WMN(M*N) *M«1 *MUP) *N=1*NUP) 

READ (5* 12  I ( (WPO(PtO) *P*1*PUP) »Q=1*QUP) 

12  FORMAT ( F 1 0 • 2 ) 

WR 1 TE( 6* 13 ) ( (WMN(M,N) *M«MLOW*MUP *DM ) *N*NLOW.NUP*DN) 

13  FORMAT(12HOOMEGA(M,N)«  / ( IX  #8014*5 ) ) 

WRITEI6.23) ( (WP0(P*0) *P=PLOW«PUP *DP ) *Q=Q10W«QUP*DQ) 

23  FORMAT ( 12HOOMEGA ( P  *0) *  /( 1X*8D14.5 ) ) 

RE AD (5*12) ( (FA(M*N) *M»  1 »MUP )  *N»1 *NUP ) 

WRITE! 6, 18) <(FA(M*N)*M*1*MUP)*N*1»NUP) 

18  FORMAT ( 8HOA (M  *N ) *  /(8E14.6)) 


0370 

0380 

0390 

0400 

0410 

0420 

0430 

0440 

0450 

0460 

0470 

0480 

0490 

0500 

0510 

0520 

0530 

0540 

0500 

0560 

0570 

0580 

0590 

0600 

0610 

0620 

0630 

0640 

0650 

0660 

0670 

0680 

0690 

0700 

0710 

0720 

0730 
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TABLE  3D  (Continued) 


READ! 5. 12) ( (AP0(P*0) .P-1 »PUP) #0-1 .OUP) 

WRITE! 6, 18) ( (FA(M»N) .M-MLOW »MUP .DM  I .N-NLOW.NUP.DN ) 
WRITEI6.28 ) ! ! APQ(P.Q) .P-PLOW.PUP.DP) .Q-QLOW.QUP.DP) 

28  FORMAT ( 8H0A(P .0) «  /< 1X.8E14.6 ) ) 

C1-2./DSQRT (A*B) 

17  FORMAT (7H  CONST-  E15.6) 

C0NST-144.*32.2*32.2  *A*A*B*B/ <PI 3*FM2 ) 

WRITE (6. 17  ICON ST 
DO  50  M-MLOW. MUP. DM 
XM-M 

XMPI -XM*PI 

GMXA2=GMtM)* ( X/A-. 5 ) 

SXMC2 A-DCOS < GMXA2 ) +KM ( M ) *DCOSH ( GMXA2 ) 

IF (M-M/2*2«EQ.O ) SXMC2A-DSIN ! GMXA2 ) +KM (M)*DSINH( GMXA2 ! 

DO  45  N-NLOW.NUP.DN 
XN-N 

XNPI *XN*PI 
OGA-WMN(M.N) 

FC(M.N)-OGA/FA(M.N) 

GNYB2-GN (N)* ( Y/B-. 5 ) 

FUDGE*‘XM*XN 

EIGEN!  F'.N ) -Cl /FUDGE*SXMC2A* ( DCOS !GNYB2 ) +KNIN) *DCOSH ! GNYB2 ) ) 
1 F (N-N/2*2:EQ»0 ) EIGEN1M.N) -C1/FUDGE*SXMC2A» 

HDSINIGNYB2 )+KN(N ) *DSINH (GNYB2 ) ) 

WRITE! 6. 16 ) X. Y.M.N.EIGEN (M.N).FA(M.N) 

16  FORMAT ! 1H02F12«6.2 14.6E13.6) 

45  CONTINUE 
50  CONTINUE 

DO  550  P-PLOW.PUP#DP 
XXP-P 

XPPI-XXP*PI 

GMXPA2=GP(P)«!XP/A-.5) 

SXOPCA=DCOS ! GMXPA2 )+KP( P ) *DCOSH ( GMXPA2) 

IF ( P-P/2*2.EQ«0 )SXOPCA*DSlN (GMXPA2 1-HCP! P)*D5INH!GMXPA2 ) 

DO  545  O-OLOW.OUP.DO 
XO-O 

XOPI-XO*PI 


0740 

0750 

0760 

0770 

0780 

0790 

0800 

0810 

0820 

0830 

0840 

0850 

0860 

0870 

0880 

0890 

0900 

0910 

0920 

0930 

0940 

0950 

0960 

0970 

0980 

0990 

1000 

1010 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 

1100 
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TABLE  3D  (Continued) 


0GP«WP0(P»0)  1110 

0GP2*0GP*0GP  1120 

FUDGE«XXP*XQ  1130 

GNYPB2=GQ(0)*( YP/8-.5)  1140 

E IGN (P  «Q ) »C1/FU0GE*SX0PCA* ( DCCS ( GNYPB2 )+KQ( Q )'*DC0SH (GNYPB2 ) )  1150 

IF(O-Q/2*2.EQ.0>£IGN<P*Q)*Cl/FUDGE*SXOPCA*(DSlN<GNYPB2)+KQ(Q)*i)SIN  1160 
1H1GNYP82))  1170 

RITE(6.26)XP*YP.P,0,EIGNIP»0) .AP0(P»0;  1180 

26  FORMAT ( 1H  2F1 2.6 *2 1 4*6E1 3.6 )  1190 

545  CONTINUE  1200 

550  CONTINUE  1210 

WR ITE ( 6  *  19 )  1220 

19  FORMAT (1H1»3X*1HM*3X«1HN«14X»1HW» 1 IX »4HP0FW 1 12X  *3HWMM* 12X»  3HDEN»  1230 

1/18X.8HANSINT  R.  7X.8HANSINT  I.10X.5HANS  R*ltfX*5HANS  I»8X*7HPWRSD  1240 

2R • 8X • 7HPWRSO  I  /)  1250 

UCTH*UC*TH  1260 

DO  778  M*MLOW«MUP*DM  1270 

XM«M  1280 

XMP I «XM*P 1  12  0 

AMPI«A/(XMPI*UCTH)  1300 

DO  7781  P*PLOW»PUP.DP  1310 

XXP«P  1320 

XPP1«XXP«PI  1330 

DO  776  N«NLOW«NuP»ON  1340 

XN*N  1350 

XNPt  *XN*PI  1360 

BNP I *B/ ( XNP I *UCTH )  1370 

DO  7761  Q«QLOW.OUP.DO  1380 

XO-O  1390 

XOPI*XO*PI  1400 

READI5.31WI.DW.WF  1410 

NWWMWF-WI  l/DW+l.  1420 

NXO”NW*M  1430 

NYO«NW*N  1440 

NXOP«NW*P  1450 

NYOP*NW*Q  1460 

OGA*WMN(M.N)  1470 
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TABLE  3D  (Continued) 


0GA2«0GA»0GA 

FALl«FA(M»N) 

FAI_12=*FAL1*FAL1 

0GP«WP0{P*0) 

0GP2=0GP*0GP 

FAL2*AP0(P,0) 

FAL22=FAL2*FAL2 

W=Wt 

DO  150  MM1=1 »NWW 
ANSINT=0. 

W2«W*W 


DEN* ( ( ( ( FAL1+FAL2 )  /2* ) 
l~CGA2*OGP2/4. )*OGA#OGP 


**2+OGA2/4.+OGP2/4 


COM1*FAL1+DCMPLX(O.DO#W) 
COM2=FAL2-DCMPLX(O.DO*W) 
FAIL12= (FAL1+F  AL2 ) /2« 


O 


)**2 


i!f^I,!7fCOMI*(OGA*OGP*FALL12,,fOGA*OGP*{FALU2*FALL12- 
, ;GG*2^*  -OGP2/4*)  / )/(COMl*COMl+OGA2)+(COM2* 

3M2+0GP2r  ALL 1 2  ’ +0GA#0GP* ' FALL  1 2+0GA2/4.-OGP2/4.  ) ; 


DENCOM=XNMRTR/DEN 

SUMAK*0. 


/(C0M2*C0 


DO  120  IS=1.NAK 

120  SUMAK*SUMAK+AN{ IS)*DEXPf-AK(lS)*W*DEL/UEi 
POFW=SUMAK*PB2*DEL/UE 

SUM6*0. 

bO  500  1 1M  *NXO 
1 10* ( 1 1-1 ) /nw 
I 1R* I 1-NW*I 10 

XO*P  I* ( »5+«5*ARG( I 1R l+FLOAT (1101 ) 

XOA*GM(M)* ( XO/XMPI-.5 ) 

SFXO-DCOS <  XOA ) +KM  f  M ) *D COSH ( XOA ) 

l m i ^“M/2*2 • EO • 0 ) SFXOaDS I N ( XOA ) +KM I M ) *DS INH ( XOA  > 
SUM4s0# 


DO  300  Kl*l,NXOP 
K1  Q*(Kl-li/NW 
K1R*K1-NW*K1Q 


1480 

1490 

1500 

1510 

1520 

1530 

1540 

1550 

1560 

1570 

1580 

1590 

1600 

1610 

1620 

1630 

1640 

1650 

1660 

1670 

1660 

1690 

1700 

1710 

1720 

1730 

1740 

1750 

1760 

1770 

1780 

1790 

1800 

1810 

1820 

1830 

1840 
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TABLE  3D  (Continued) 

XOP*P I *( •5+«5»ARG(KlR)+FLOAT { K 10  > )  1850 

X0X0P»X0-X0P  1860 

E1*D£XP(-A/  P!»ALPH1  »DABS( XO/XM-XOP/XXP) )  1870 

ARGCOM*OCM?LX(0»00,-W»A/(UC»P1 ) * ( XO/XM-XOP/XXP ) )  1880 

F2*C0EXP(ARGC0M)  1890 

XOPA*GP(P ) * ( XOP/XPP I“*5 )  1900 

SFXOP«DCOS  < XOPA I +  KP ( P ) *OCOSH( XOP A )  1910 

IF(P-P/2«2.EQ.0)SFX0P*DS!N<  XOPA)+KP(P)*DSlNH(XOPA)  1920 

FV4*  SFX0P*E1*E2  1930 

SUM4*SUM4+FV4*WGT ( < 1R ) *P I /2 •  1940 

300  CONTINUE  1950 

FV6«SUM4»SFX0  I960 

SUM6»SUM6+FV6*WGT( I lR)*PI/2.  1970 

500  CONTINUE  1980 

St)M5«0.  1990 

DO  400  Jl* 1 *NYO  2000 

J10«(J1-1)/NW  2010 

J1R«J1-NW*J1Q  2020 

YO»PI*< .5+.5*ARG( J1R1+FLOATI J1Q) )  2030 

YOB«GN(N)*(YO/XNPI-.5)  2040 

SFYO-DCOS ( YOB  I +KN ( N ) *DCOSH ( YOB )  2050 

IF(N-N/2*2.EO.O)SFYO«DSIN(YOB)+KN!N)*DSINH(YOB)  2060 

SUM3-0.  2070 

DO  200  L 1* 1 »NYOP  2080 

L10-IL1-1 J/NW  2090 

L1R*L1-NW*L10  2100 

YOP«PI *I»5+.5*ARG(L1R) ♦FLOAT! L 10 ) )  2110 

YOYOP*  YO**YOP  2120 

BNPI«B/(XNPI*UCTH)  2130 

E3*DEXP(-8/PI  *  ALPH2*DABS( YO/XN— YOP/XQ) )  2140 

YOPB»GQ(Q)*(YOP/XQPI-«5)  2150 

SFYOP’DCOS ( YOPB ) 4X0(0) *DCOSH( YOPB 1  2160 

IF(O-O/2*2.EO.0)SFYOP-DSIN( Y0PB)+K0(0)*DSINH(Y0PB)  2170 

FV3«SFYOP*E3  2180 

SUM3»SUM3+FV3*WGTILlR)*PI/2.  2190 

200  CONTINUE  2200 

FV5«SUM3*SFYO  2210 


TABLE  3D  (Continued) 


SUM5*SUM5+FV5»WGT< JIR)*PI/2.  2220 

400  CONTINUE  2230 

ANSINT=SUMS*SUM5  2240 

ANS«ANSINT*C0NST*P0FW*EIGEN(M#N)*EIGN(P.Q)*DENC0M*C1*C1  2250 

PWRSO* ANS*W**4  2260 

WRITE! 6 1 20 )M»N  «W  tPOFWiE I GEN(M»N)*DEN  2270 

WR I TE ( 6  #20 ) P  *OtXNMRTR i£ IGN ( P  »Q ) #DENCOM  2280 

20  FORMAT) 1X*2I4.6E15. 6)  2290 

WRITE(6»21)ANSlNT*ANS*PWRSD  2300 

21  FORMAT (11X«6E15»6/)  2310 

W=W+0W  2320 

150  CONTINUE  2330 

7761  CONTINUE  2340 

776  CONTINUE  2350 

7781  CONTINUE  2360 

778  CONTINUE  2370 

STOP  7380 

ENO  2390 
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NOTATION 


A 


Ars 


A*  An 


<1,  0_, 

m  m  m *  m 


an'bn'Cn'<ln 


<lm  n 

H 

b 

('  I) 

1  mn’"mn 


9(  ) 
h 

l,i 


'mn(r) 

K 

*>«»> 

l A  ) 

L  ,L 

x'  y 

M 

myn\  p,q\  r,s 

F 


Correlation  area  of  turbulence  over  which  the  mean  square 
pressure  is  constant 

Coefficient  usod  in  series  representation  of  deflection 
Normal  acceleration  of  plate 
Speed  of  sound  in  water 


Constants 

Modal  damping  function 

Equal  to  rj  /  2 
Bending  stiffness 

Constants  defined  in  Equation  (C27) 

Coefficient  in  Equation  (C34) 

Greens  function  (impulse  response  of  plate  at  point 

rQ  due  to  forcing  function  P  at  rQ )  defined  by  Equation  (CIO) 

Plate  thickness 

Refers  to  properties  on  the  side  of  the  plate  where  the 
fluid  is  in  motion  (i.e.,  turbulent)  and  where  the  fluid  is 
stagnant,  respectively,  as  shown  in  Figure  11. 

Time  correlation  integral  defined  by  Equation  (C24) 

Constant 

Modal  amplitude  factor 

Constants  defined  in  Equation  (C27)  and  (C28),  respectively 

Linear  differential  operator  defined  in  Equation  (C12) 

Lateral  dimensions  of  plate  along  the  x  and  y  axes, 
respectively 

Mass  per  unit  area  of  plate 
Mode  numbers 
Acoustic  pressure 

Mean  square  pressure  at  surface  beneath  turbulent 
boundary  layer 


vt'.t) 

U  > 

«p(v» 

*p('o  >  ro  * f ) 

*„( ) 

«,( ) 

r»  r  >  ro  »  ro 

r0  ^*0  ’  ^0’  eo)’^0 

U1  fy  *0 
S,S0,S' 

Sp(r,r',co) 

sp(r*u) 

Sz(r,  r',  03) 

T 

M  »  ^o>  ^o5  V 
U(t-T0) 

vc 


V 

V  ,  V' 

n1  n 

U) 

®»  *,|  *o>  *0 

y,y ',yo’ Vo 
zn,  z  ' ,  B,  s' 


Surface  pressure  beneath  turbulent  boundary  layer 
Space-time  correlation  of  plate  accelerations 
Space-time  correlation  of  acoustic  pressures 
Space-time  correlation  of  turbulence  pressures 
Space-time  correlation  of  plate  velocities 
Space-time  correlation  of  plate  displacements 
Radius  vectors  defined  in  Figure  11 

Space-time  coordinates  of  the  forcing  function  p 

Surface  area  of  plate  ( dSQ  -  dzQ  dy0  etc) 

Cross -spectral  density  of  acoustic  pressures 

Power  spectrum  of  acoustic  pressures  at  a  point  r  along 
the  normal  through  the  center  of  the  plate 

Cross-spectral  density  of  plate  displacements 

Kinetic  energy  of  plate 
Time  variables 

Unit  step  function 

Average  convective  speed  of  turbulent  pressure  field 
(or  pattern) 

Ship  spead;  free  stream  velocity 

Velocity  component,  at  any  point  y  in  the  boundary  layer, 
parallel  to  the  x  axis;  see  Figure  11 

Potential  energy  of  plate 

Normal  velocity  of  plate 

Plate  displacement 

Mode  shapes  of  the  plate  along  x  and  y,  respectively 


Space  coordinates  defined  in  Figure  11 
Normal  displacement  of  plate 


01 


01 


y.p 

8,8* 


S(  ) 


5 


mn’ 


5 

P<7 


m  n 

0 


* 

^ mn 


P 

P 


P. 


^mn  ’  ^ pq 


to 


to 


mn 


<  > 


Equal  to  mn  U  J  L  x 

Plate  viscous  damping  (resistance  coefficient) 

Radiation  damping  coefficient 

Functions  of  the  time  variables  as  defined  by  Equation  (C22) 

Boundary  layer  thickness  and  boundary  layer  displacement 
thickness,  respectively 

Dirac  delta  function 

1  for  m  »■  n  or  p  =  a 

Kronocker  delta  equal  to 

0  for  m  n  or  p  ^  q 
1  for  mn  »  rs 

Kronecker  delta  equal  to 

0  for  mn  t*  rs 

Loss  factor  (plate  hysteretic  damping) 

Temporal  decay  factor  of  turbulent  boundary  layer 
associated  with  eddy  decay 

Measure  of  the  inverse  radius  of  the  turbulence  eddy 
Eigenvalue 

Poisson’s  ratio 
Density  of  plate  material 
Fluid  density 

ro  “  ro  —  — 

Delay  times  equal  to  t'~  t,  t'-t  +  - ,  and  tQ  -  1 0', 

respectively  ai 

Spectrum  shape  factor 

Eigenfunction 

Circular  frequency,  equal  to  2 nf 
Undamped  natural  modal  frequency 

Symbol  representing  the  complex  conjugate 

Symbol  representing  cross  (space-time)  correlation  function 
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APPENDIX  Cl  -  MATHEMATICAL  ANALYSIS 

Equations  are  now  derived  for  the  space-time  correlation  and  spectral  density  of  the 
acoustic  pressure  in  the  near  and  far  field  on  both  sides  of  a  turbulence  excited  vibrating 
plate.26 

The  Rayleigh  formulation27  of  the  velocity  potential  in  the  acoustic  field  resulting  from 
a  vibrating  plane  is 


(Cl  a) 


The  corresponding  acoustic  pressure  is 


dt  Pi  Cds  ’odVn(  *\ 

J-  Jt  Vo^-aJ 


(Clb) 


Figure  11  shows  the  coordinate  system  used  for  this  formulation.  The  space-time  correlation 
of  the  acoustic  pressures  are 


<Pi{r,t)Pi{r\t')>-Rp(T,r',r)-< 


Pi  f  ds0  dVn/  ro\ 
2rrJs  rQ  dt  V0’*  aj 


Pi  f<*V  dVn(  ,  , 

2 ”sTo  dt  \°  ’  1  ai  ) 


(C2) 


where  <'«=  t  +  r. 

The  integration  and  ensemble  averaging  processes  may  be  interchanged  to  give 

?i  ffdS 0  dSi  Wn  t  b\K(  'o\ 

RP  (r'r  >r) =  r_:  J  J  — ir(ro’i-  — )Trvo’r_“)>  (C3) 

P  in2  S  S  r0  r0  dt  \  ai!  dt  V  ail 

Now 


s2zn  d2z'  dvn  dv: 

n  n  n  n 

< - -  >  -  <  —  — -  >  *  <  A  A  % 

dt 2  dt’2  dt  dt 
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Uo 


(I)  MOVING  FLUID 


-  2 


1 _ 

0 

_UJ  \  EXTENT  OF 

y  BOUNDARY  LAYER 

a  -T—r—M — r  1  I  J  T—q 

/ 

^  Frigid  surface 

SURFACE 

'FLEXIBLE  : 

1  (i)  STAGNANT  FLUID 

(i)  STAGNANT 
FLUID 


Figure  11  -  Coordinate  System 


may  be  written  as 


/  ro  ro\  dRv(  ro  ro'\ 

*  a{  '  T°  ’  1  aj  dr2  \0,t  a,-’  T°  '*  a,.  / 


Hence 


rr  ds0  <«„-  54  /  -0  r0, 

(C5) 


Assuming  a  stationary  random  process,  we  can  shift  the  time  origin  by  an  amount  rQ/ with¬ 
out  changing  the  results  of  averaging.  We  get 


p/a  ff  ds0  ds0  a4 
r  JJ  7“  ~T  --  +  *•') 

'  ‘iff 2  S  S  f0  ro  dr4 


where  r'  =  r  + 


r0  ~  ro 


The  Wiener -Khintchine  relations  between  the  cross-correlation  and  cros3-spectml  den¬ 
sity  of  the  acoustic  pressures  are 


dr  R  (r,r',r)  e  l<or 
2n  J  „  r 


(CTa) 


*p(r’r'»r)"J  du  Sp(r,r',») 


(CTb) 
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Substituting  Equation  (C5)  in  (C7a),  we  obtain 


Sp(r»  r'. 


-Vff5 
2  II  rQ 


Sz(r,  r',(o) 


(C8) 


Equation  'C6),  (C7),  and  (C8)  describe  the  acoustic  pressure  resulting  from  the  vibra¬ 
tion  of  a  plane  surface  in  a  semi-infinite  medium.  The  equations  are  a  function  of  R  only 
and  are  applicable  to  any  type  of  plate  with  any  type  of  boundaries. 

The  method  for  determining  plate  response  to  turbulence  excitation  is  identical  to  that 
of  Dyer  except  that  more  general  boundary  conditions  are  included  here.  However,  because 
the  notation  is  somewhat  different,  the  relevant  equations  are  outlined  for  the  benefit  of  the 
computer  program  user.  The  reader  is  referred  to  Appendix  Al  for  a  more  detailed  develop¬ 
ment.  The  differential  equation  of  motion  of  the  linear  system  Lz  =  -  p  has  the  solution 


where 


■2(ro  i  0 


(C9) 


Lg  -  -  S(r  -  r0)8(l0  -  tQ )  -  -S(*0  -  xQ)  S(yQ  -  y0)  8(tQ  -  tQ)  (CIO) 


For  turbulence  excitation  (random  pressures),  the  ensemble  average  or  cross  correlation  of 
the  plate  displacements  can  then  bo  expressed  in  terms  of  the  correlation  of  the  turbulent 
pressure  forces  by 

<z(r0,t)Z*(r^n>~Rt(r0,r0\r)nj  dt~  j  d%  j  dS0f  dSQ'. 

s  o  V 


<  r0  r0  ’  ^0  )  (r0  >  ^  ’  r0  ’  ^  >  <?(  r0  ’  ^0  )  p*(r0  ’tQ)> 


’  J  dto  f  dt0  J  dS0  J*  ds0  &(r0’t  » r0  >  <0  )  r0  ’ 


’  Vro  ’  ro  >  r) 


(C11) 
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For  thin  plate  vibration 


A  >.«*(> 


6(i-«?)/(  )  +  Ki~rt+Po-irmLi  )  (C12) 

y  dt 

The  Green  function  satisfying  Equation  (C12)  has  been  shown  to  be  represented  by 


9i'< 


"t]  “  “  M 


—  omn(t— tq) 


sin“M(‘-  *0) 


m  n  mn 


(C13) 


where  <£mn  (  ),  the  orthonormal  set  of  eigenfunctions,  satisfies  the  conditions: 


and 


and  where* 


^mn*0 


/<£  <f>  *  5  5 

y'mn^pq  u  unn 
d 


(C14) 


(C15) 


<U'nn  [/,  7/3  2\1/2  1 

“"•‘T1 K  £?*’ )  M 


(C16) 


6 .1/2 

Wm,»  ”(#) 


(C17) 


♦Equation  (A7)  of  Appendix  A  can  be  written  in  the  present  notation  cs 


°mn  (  r  /  fir)  ^ mn  ty 


(B 


1  l  l  \2hk>mn  2Mc>1 


Expanding  this  equation  and  asouming,  with  Dyer  (Equation  (12)  of  Reference  2),  that  j?  <  1/3  and 
as  well  as  using  Equation  (A8)  in  the  expansion,  we  obtain  Equation  (C16). 


/9 


2w  Af 
mn 


•<  1/3 
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E 


When  radiation  damping  is  also  included,  we  write 

Tf 

a,nn  ~  2 M  +2°>mn  +  2 H 

In  this  analysis,  it  is  assumed  that  /3Q  and  /3j  are  negligible*  so  that 


(C18) 


Q,  —  —  (i)  =  B  CO 

mn  q  m  n  mn 


Using  Dyer’s  equation  for  the  pressure  correlation 


tffP(r’r)  -  P2^S[(x0  -  *0#)  -  U  r\  8  (yQ  -  yQ')  e 


_ 

6 


(C19) 


(C20) 


Using  Equations  (C12),  (C13),  and  (C20),  we  obtain  the  working  expression  for  the 
displacement  correlation  function  for  a  plate  excited  by  a  turbulent  boundary  layer.  It  is 
applicable  to  arbitrary  boundary  conditions  provided  expressions  can  be  obtained  for  the 
eigenvalues  and  normalized  eigenfunctions. 


R  z(r o  ’  ro  1  r )  = 


V  ^P9(ro) 

wmnwp/2 


e 


•sin  -  <o)sin<yp9(r'  V)  "  Ucr]S(Vo  ~  Vo)  (C21) 

Performing  a  spatial  integration  of  Equation  (C21),  then  introducing  the  transformation 
used  by  Dyer 

v  =  V)"  (*“£)  =  ro 

P  =  («'-£)  +  (<-“£)  (C22) 

•If  values  or  relations  for  /3q,  /3j  are  known,  we  can  include  these  terms  in  the  analysis  and  program. 
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followed  by  a  temporal  integration  yields 


R Z(T o » ro  ’ r)  ” 


Ap 2 


la,2  M2 

m  n 


$  mn  (ro  )4>  mn  ('</> 1  m  n  (') 


(C23) 


where 


jA-r +r 

J0  -p 


dye 


r  \Y*r\l 

L-w-— J 


cos  <*(y+r)[coswmny-cos  6>mnp],  r>0 

(C24) 


where  a=mn(/,/L,  • 

I  ro  1 

Q 

Since  0  is  small,  then  for  |  rQ  |  >  0,  e  -*0  so  that  from  Equation  (C21)  ft  z(rQ  ,  rQ',  t')  -  0. 

Hence,  with  small  error,  we  need  consider  only  the  value  rQ  =  {tQ  -  tQ')  =  0.  With  this 
approximation  we  perform  the  integration  in  Equation  (C2i)  to  obtain  the  displacement  corre¬ 
lation  below  coincidence.  To  render  the  analysis  tractable  for  the  integration,  it  is  also 


assumed  that  Uc0<<L x, 


mnUc 


<<a> 


mn  ’ 


i.e.  the  correlation  length  of  the  pressure  field  is 


much  smaller  than  the  length  of  the  plate  and  the  convection  speed  of  the  turbulence  is  small 
compared  to  the  modal  wavelength,  and  amn6  <<  1  (low  damping);  see  (A22),  (A23),  (A36), 
and  (A36b)  of  Appendix  Al.  The  result  for  the  displacement  correlation  function,  which  is 
independent  of  plate  boundary  conditions,  is* 


*It  is  important  to  note  that  although  the  same  symbols  <^mn(rQ)  an<*  4>mn^ro')  are  used> 


(L*Ly) 


1/2 


^mn(r0> 


;  b'> 


(v.,r 


^mn^O  ) 


Eq  (C2S) 


Eq  (C21) 


Eq  (C25) 


Eq  (C21) 


The  value  of  the  normalized  eigenfunction  <j5>mfjused  in  Equation  (C21)  agrees  with  that  used  by  Dyer  That  the 

axL//2 

value  of  <fimn  used  in  Equation  (C25)  differs  from  Dyer’s  results  by  a  factor  - can  be  seen  by  compar¬ 

ing  Equations  (C35)  and  (A20)  for  the  case  of  a  simply  supported  plate.  Thus,  we  see  that  Equations  (C25)  and 
Equation  (A27),  where  /m„(r)  is  given  by  Equation  (A36),  are  in  agreement. 
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"..(vV’')  =2?2J— - 


'2Adp2 


nL  L  nr  a  ,V2(1  +  <o2d2) 

x  y  mn  mn  v  mn  ' 


•4>  (O  <£  (r/)  e  ^"'^coswmBr 

" mn '  0'  vmn'  0  '  mn 

For  the  plate  mode  shape,  assume  that 

=  XJx)  Y n(y) 

where 


(C25) 


(C26) 


X  (x)  =  a„  cos  »  a;  +  ft  sin  a„ar  +  c  cosh  a„«  +  flL  sinh  a„a: 

mv  ’  m  m  m  m  m  m  m  m 

YJy)  =  an  C0S  any  +  bn  sin  “n?+cn  cosh  +  dn  sinh  anV  (C26a) 


From  Equations  (C4)  and  (C6),  we  see  that  Rp(r,  r\  r)  is  a  function  of 


<94 

MV'o  ’  r )  =  R A  (r0  ’  f0  ’  r  )  ’ 

(9  r 

Pape  99  of  Reference  28  shows  that  the  correlation  of  the  plate  acceleration  for  r>  0 
can  be  expressed  as* 

RA  (r0  >  ro'»  r)  =2-*mn*'nn(T0  )  *mn(T o'>  e  [Cmn  COS  "mnr  +  0mn  sin  ««„'] 


;  r  >  0 


(C27) 


where 


2Adp 2 


LxLv<o2mh12{\  +  <y202) 

x  y  mn  '  mn  ' 


<7  =  w4  -  6o>  a2  +  a4 

mn  mn  mn  mn  mn 


D  —  4a  Ci)  (cz^  —  cj2  J 
m n  1  mn  mn'  mn  mn 


♦Footnote  on  following  page. 
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The  Leibniz  theorem  is  obtained  by  differentiating  u  H  with  respect  to  f,  n  times.  When  n  =  4,  corre¬ 
sponding  to  the  fourth  derivative,  the  theorem  gives 

f  (r)  =  u  t>+4u  v  +6u  +  ut; 

=  a4  e-ar  cos  br  +  4(-a^)  e”  ar  (  -  6  sin  6r)  +  6 a2  e-ar  (-  fc2)  cos  6r 
+  4(-a)  e~aTb 3  sin  6r+i4  e-ar  cos  6r 
=  (a4 -  6a2 6 2  +  62)  /(r)  +  4at(a2-  62)  g(r) 

=  (a4  -  6a"  £>2  +  t4)  f(,r)  +  4  o6(a2  -  62)  g  (r)  for  r  >  0 

=  (a4  -6  a2  62+64)  /(r)~4af>(  o2-fc2)  g(r)  for  r<0 
where  /(r)  =  e-ar  cos  fcr  and  g(r)  =  e  ar  sin  6r  =  e  al  rl  sin  6r. 

The  results  agree  with  those  in  Appendix  II  of  Reference  29  determined  there  by  use  of  Heaveside  func¬ 
tions.  We  note  that  the  first  derivativeof  /(r)  has  a  finite  discontinuity  at  the  origin  so  that  the  second  and 
higher  order  derivatives  will  have  infinite  discontinuities  at  this  point. 
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Reference  29  also  shows  that  Equation  (C27)  satisfies  the  Wiener-Khintchine  relations, 
Equations  (C7a)  and  (C7b),  thereby  establishing  the  derived  expression  for  R  A(rQ  >  Tq  ,  0  as 
a  valid  correlation  function.* 


•To  show  that 


d4/(r) 

dr4 


aid  therefore  Ra  satisfies  the  Wiener-Khintchine  relations,  consider  the  Fourier  cosine 


d4/(r)  d4/(r) 

transform  of  ■  ■  - - .  Because  - - is  an  even  function,  the  Fourier  sine  transfonn  of  this  function  vanishes. 

dr4  dr 4 

Since  the  fourth  derivative  is  a  continuous  function,  we  integrate  by  parts  to  find 


d4  /( r )  fd3/( 

J  •  -• —  cos  or  dr  =1  — — 

•<0  dr4  Ldr4 


r)  d2f(r ) 

—  cos  or  dr  +  o  * - sin  or- 

dr2 


dRr)  -j  « 
-O2  — - cos  tor  I 

Jo 


-*r 

Jq 


~  d/(  r) 


dr 


sin  or  dr 


f(r)  and  all  of  its  derivatives  are  zero  at  r  =  oo  .  Also,  odd  derivatives  of  /( r)  over  the  range  — oo  <  r  <  oo  are 
odd  functions  of  r  so  that  the  value  of  these  derivatives  at  the  point  of  discontinuity  (i.e.,  origin  r  =  0)  is  zero. 
Hence,  this  equation  reduces  to 


f~d4/(r)  3r*/CO  .  ,  4f  /<* 

I  - cos  cordr  =~co  I  -  sin  cot  dr  -<o  1  ;v 

Jo  dr4  Jo  dr  J° 


cos  or  dr 


after  integration  by  parts  of  the  bracketed  integral.  Substituting  /(r)  =  e  '  '  cos  br  in  the  last  integral  we 
obtain 

r  ,  « r  i 

I  - —  -  cos  or  dr  =  —  I  - —  +  - - -  I 

Jq  dr4  2  j_a2  +  (d  +  <u)2  o2  +  ( 6  -  co)2  J 


The  inverse  Fourier  cosine  transform  of  this  expression  is 


if00  ° r  oi4  ~j 

2,rJo  2Lo2  +  (fe  +  cu)2  a2  +  (b-o)2  J 


cos  or  dr 


"  (o4  -  6o2  i2  +  64)/(r) +  4o6(o2-62)  g(r) 

d 


d4f(r) 

which  we  have  previously  shown  to  be  - for  r>  0.  Thus,  the  terms 


(o4 

o2  +  (  b-o)\ 


V(r)  of  cu4 

- and  —  ■  -  " 

dr4  2  U2+  (i  +  t 


rfr"  dr‘?  '^+(6  +  0))' 

are  Fourier  pairs.  These  results  are  obtained  with  somewhat  more  rigor  in  Reference  29. 
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[ 


Substitution  of  Equation  (C27)  in  (C6)  yields  the  following  expression  for  the  cross 
correlation  of  acoustic  pressures* 


■z.jr* 


7-1  ^Jf0)  ^mni'd)  e 

mn  S  S  0  r0 


[<?»„ 


C0s  mmnr'+  Ann  S*n 

mn  mn  mn 


■} 


(C28) 


where 


and 


K. 


p2  • 
r  1  — 


K. 


in2 


(ro  -  '0 ) 


r  =  t  + 


ai 


Equations  (C28)  and  (C7)  represent  working  expressions  for  determining  anywhere  in 
the  field  the  desired  statistical  properties  of  the  acoustic  pressure  resulting  from  the  vibra¬ 
tions  of  a  turbulence-excited  finite  plate  of  arbitrary  boundary  conditions.  The  mode  shapes 
of  the  plate  <£mn(  r)  in  these  equations  implicitly  represent  the  dependence  of  the  acoustic 
field  on  the  boundary  conditions. 

The  method  of  analysis  used  by  Young<30>  (the  Ritz  method)  is  used  to  determine  the 
eigenfunctions  and  eigenvalues  of  vibrating  rectangular  plates  with  continuous  spring-type 
boundary  conditions.  This  treatment  allows  for  various  combinations  of  clamped  and  free 
boundaries. 

The  Ritz  method  consists  of  equating  the  maximum  potential  energy  of  the  plate 


area 


d2w  d2w 

+  2  (i - 

dx2  dy2 


+  2(1  ~p) 


dxdy  (C29) 


♦Note  that  whereas  in  the  statement  below 
variables  rQ  ,  rQ'  of  the  funcUon  R^  (rQ  ,  rQ' 


Equation  (C26a)  the  term 


r0  r0 


was  implicitly  included  in  the 


rn  ~  rn 

.  r).  in  Equation  (C27)  the  term  -2 - 2-  is  linked  with  r  to  form r'. 


a. 

( 
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to  the  maximum  kinetic  energy  of  the  plate 


plate 

area 


u>  obtain  an  expression  for  the  frequency  of  the  vibrating  system 


0 

U>~ 


2_  V 

ph  plate  u2  dxdy 
area 


(C30) 


(C31) 


The  natural  frequencies  are  determined  by  finding  expressions  for  w  that  satisfy  the  boundary 
conditions  and  minimize  Equation  (C31 )-  The  Ritz  method  consists  of  assuming  the  deflec- 
tioT  iv(x,y)  as  a  linear  series  of  “admissible”  functions  (see  Reference  30)  and  adjusting 
the  coefficients  in  the  series  so  as  to  minimize  Equation  (C31). 

For  a  rectangular  plate  with  edges  parallel  to  the  x -  and  y-axes,  the  series  approxi¬ 
mation  for  the  displacement  function  is  taken  in  the  form 


w(x,y) 


p _  v _ 

■ZZ 


A..X.W  I'.W 


m  =  1  n  =  t 


(C32) 

l 


1 

and  substituted  in  Equation  (C31).  We  get 


< o 


2 


2  V 

Pk  lf11AmnXJX)Yn(y)dxdy 

plate 


or 


o)2  ph 

v  =  — — 

2 


II  yy*. 


Xm^Yn(y)  dxdy 


This  expression  is  minimized  by  setting  the  partial  derivative  with  respect  to  each 
coefficient  equal  to  zero.  This  yields 


dV 

Ja~ 


<o2ph  d  f  f 

“  **7,  Pii 


v?  dxdy  =  0 


(C33) 
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where  Ar$  is  any  of  the  coefficients  Amn.  Equation  (C33)  represents  a  system  of  linear 
homogeneous  equations  in  the  unknowns  Amn •  The  approximate  natural  frequencies  of  the 
plate  o>j ,  co2  ,  .  .  .  are  obtained  from  Equation  (C33)  by  setting  the  determinant  of  the  sys¬ 
tem  equal  to  zero. 

The  functions  Xm{x)  and  Y n(y)  inserted  in  Equation  (C33)  are  the  mode  shapes  of  a 
beam  supported  by  torsional  and  transverse  linear  springs  along  its  boundaries.  The  charac¬ 
teristics  of  the  springs  along  each  side  are  constant.  These  spring-type  edge  conditions  allow 
the  effects  of  edge  rotational  and  edge  translational  constraints  to  bo  analyzed  on  a  quanta- 
tive  basis.  Once  the  mode  shapes  are  known  or  determined  -  for  the  clamped-clamped  plate , 
we  use  the  functions  given  by  Equation  (C26)  and  ( C26a)  as  the  mode  shapes  X(x)  and  Y  (y) 
of  a  beam  with  its  ends  clamped  in  the  Rite  method  --all  of  the  integrals  in  Equation  (C33) 
can  be  calculated.  Then  as  explained  in  Reference  (30),  the  set  of  integral  Equations  (C33) 
can  be  reduced  to  a  set  of  linear  algebraic  equations  of  the  form* 

P  7 

-  o  (C34) 


where 


1  for  mn  =  rs 
0  for  mn  ^  rs 

A  =  a)2 phL' \l  /b  (proportional  to  <a2) 

x  y 

In  Equation  (C34),  r  assumes  all  values  between  1  and  p  and  s  assumes  all  values  be¬ 
tween  1  and  q.  The  eigenvalues  and  therefore  the  natural  frequencies  wrs  are  found  from  the 
condition  that  the  determinant  of  the  system  of  Equation  (C34)  must  vanish  for  nontrivial  solu¬ 
tions  Amn.  Once  the  eigenmatrices  of  Equation  (C34)  have  been  determined,  the  mode  shapes 
of  the  plate  are  obtained  from  Equation  (C32). 

Reference  29  compares  the  spectrum  of  the  sound  pressure  level  for  a  clamped-clamped 
plate  with  that  of  a  simply  supported  plate.  The  comparison  suggests  that  a  simplified  and 
realistic  approach  to  the  investigation  of  plates  with  nonsimple  supports  would  be  to  calculate 
the  modal  frequencies  considering  the  true  (clamped-clamped)  end  conditions  but  to  use  the 
mode  shapes  considering  the  end  conditions  as  simple  supports.  Comparison  runs  using  this 
approach,  which  requires  much  less  computation,  and  the  exact  approach  (clamped-clamped 


♦The  genera!  functional  form  for  C^is  given  in  Reference  30. 
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frequencies  and  mode  shapes)  produced  results  in  very  good  agreement.29  In  connection  with 
this  aspect  of  the  problem,  the  following  equations  were  developed  to  obtain  the  sound  radiated 
from  simply  supported  plates. 

For  a  simply  supported  plate  of  dimensions  L  x,Ly  and  thickness  k,  the  normalized 
eigenfunctions  (mode  shapes)  and  corresponding  modal  frequencies  are  2  (see  footnote  for 
paragraph  preceding  equation  (C25)) 


$  mn 


mrrx  .  nny 


(C35) 


where 


(C36) 


i 


Substituting  Equation  (C35)  in  (C28),  we  obtain  fo-  locations  in  the  far  field  on  a  normal 
through  the  center  of  the  plate  (rQ  -  rQ'  ~  0  ;  more  generally  rQ  =  rQ'  »  r  ,  see  Figure  Cl,  and 


consequently  r'»  r) 


e 


cos  co„„r  + 

m  n 


D „ 


sin  «  r 

m  n 


Now 


phx 

L  r 

!  mnx 

x  r  .1 

X 

sin  -  dx 

=  — >  -  cos  mn  -  1 

=  •—  l 

J0  Lx 

77177  L 

mn 

and  similarly  for  the  other  three  integrals.  Hence,  the  product  of  the  four  integrals  yields  the 

/,  i  2 

term  _ (-l(-l)m-ll2  •  y  [-1(  —  l)n  —  l]2  and  the  auto  correlation  of  the  acoustic 

m2  n  2  n2n 2 

pressure  at  r  is 
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Using  this  value  and  the  value  of  Kmn,  K mn  given  by  Equations  (C28)  and  (C27),  respec¬ 
tively,  we  get 


Sp(r,w) 


-  1  (L*Lxy,2Mrl  yy , . 

"  4„7  'r2  /  «2  4^4* 


(-l)m]2[ l-(-l)"]2  . 


1 


(1  + 


62)m2n2 


In  accordance  with  Reference  2,  we  take 


2  v  2tt  ;r(S*)2 

k2  (2/S*)2  2 


30  S* 


=  (3  x  10~3)2  Pi2V4 


Substituting  these  values  in  the  equation  for  Sp(r,<y),  the  nondimensional  power  spectrum  at 
r  is  then  represented  by* 


Sp(r,a) 
Pf  U2  S* 


33.75  x  10"  6  (L^ 


(-i)ml2[i-(-i)"]2 


K 


1 


(i  +  <o2mn  0)  m2n2 


(C38 


•Note  that  Equation  (C38)  does  not  agree  with  Equation  (6-38)  of  Reference  26  which  appears  to  contain  a 
typographical  error. 


or 


<C39> 

m  ii  v  mn  / 

Thus  Sp(r,aj)  is  the  product  of  a  modal  amplitude  factor  and  a  spectrum  shape 

factor  $ 


APPENDIX  C2  -  METHOD  FOR  DETERMINING  INPUT  DATA 

The  method  for  determining  input  data  for  the  Electric  Boat  Computer  Program  is  the 
same  as  the  Dyer  method  (Appendix  A),  and  the  system  of  units  is  consistent  with  Dyer. 
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APPENDIX  C3  -  PROGRAM  IDENTIFICATION 


This  program  computes  the  space-time  cross  correlation  and  cross-spectral  density  of 
the  acoustic  pressures  resulting  from  the  vibration  of  a  turbulence-excited  finite  plate  of 
arbitrary  boundary  conditions. 
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APPENDIX  C 

TABLE  4 

Identification  for  Electric  Boat  Program  —  IZZO 

This  table  includes  input  and  output  data  identification,  flow  chart,  order 
of  input  data,  and  computer  running  times.  Computer  program  listings  are 
given  in  Table  5. 

Table  4A:  Input  Data 
Table  4B:  Output  Data 

Table  4C:  Flow  Chart  (Electric  Boat)  for  Turbulence  -  Excited 
Clamped  and  Simply  Supported  Plate  Problem 

Table  4D:  Input  Formats 
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Description 

Typo 

Program 

Symbol 

m  far  Van*  l*rot/ram 

Onlcr  of  m-mode  numbers 

Integer 

MM 

Order  of  n  -mode  numbers 

Integer 

NN 

m  |*  m’s  and  n's  are  rend  as  a 
vector 

*  MM:  m’s  and  n's  are  read  as  a 

matrix  such  as  A(1.1).  A(  1 ,2) 
A(l,3),  A(‘2,1),  A(i!,2),  A(i!,3) 

Integer 

IM 

NN 

Integer 

IN 

Number  of  cases  in  autocorrelation 

Integer 

■ 

Number  of  cases  in  0R0SS1 -correlation 

Intogor 

Number  of  cases  in  CROSS‘2- correlation 

Integer 

L.XYZ 

1.  Across  to  autocorrelation 

0*  No 

Integer 

NAUTO 

1-  Across  lo  CROSSI -correlation 

0:  No 

Integor 

NCROSS 

1:  Across  (o  CR()SS2-corrolation 

0:  No 

Integer 

NCROST 

tlppor-first-intogration  limit 
(pinto  dimension  x) 

Decimal 

XL1 

l.owor- first- integration  limit 

Decimal 

XLO 

Ilpper-second- integration  limit 
(plate  dimension  y) 

Decimal 

YL1 

Lowor-second-intogration  limit 

Decimal 

YLO 

Speed  of  sound  in  fluid 

Dorimal 

AI 

flc>mn  -  damping  coefficient  -  amn 

Decimal 

B 

Constant  a)  simply  supported  pinto 
h)  nonximplv  supportod 

Dorimal 

C 

Decay  constant  «  f>*  /U*» 

Dorimal 

THETA 

(rms  press.)2 

(Ill/ft J) 2  -  (0  x  10' 3  ■  i/'ipVl)2 
where  p  •  mass  density  of  fluid 

Dorimal 

P2 

frequencies  for  ( m,n )  modes  (radians) 

Decimal 

W 

m-mode  shape  numbers 

Intogor 

MAM 

n-modo  sh*po  numhors  (MAX-W) 

Intogor 

NAN 

Normalised  eigenfunction 

Decimal 

ALMM 

parameters;  used  only 

Decimal 

AMM 

n  the  general 

Decimal 

BMM 

(i.o.,  damped)  case; 

Dorimal 

CMM 

for  m-mode 

Dorimal 

DMM 

Dorimal 

AL.NN 

Same  as  alwve. 

Dorimal 

ANN 

Decimal 

BNN 

only  for  n-node 

Dorimal 

CNN 

Dorimal 

DNN 

force  lb 

•rorce-  lb.  hence  *••••  ■  —  >  -  -x  /  •!»<>  length  -  ft  end  time  -  etc. 

acceleration  ft/*ec* 

ThU  ejratem  of  unite  ie  consistent  with  that  of  Dyer. 


TABLE  4A  (Continued) 


Disruption 


Description  far  Subroutine  Autot  orrefntinn 
( Thor  and  Frequency  Dependent ) 


Program 
Typ*‘  Svinbol 


(Coordinates  of  point 

Decimal 

X 

Y 

for  correction 

Decimal 

Y 

A 

measurement 

Decimal 

7. 

ro 

Initial  \aluo  of  t 

Decimal 

TAU 

\t 

Increment  of  r 

Decimal 

DTAU 

NTAU 

Number  of  r*s 

Integer 

NTAU 

EPS 

5  ■ 

Convergence  constant  (test  value) 

Decimal 

EPS 

NMAX 

Maximum  number  of  iterations 

NMAX 

nw; 

Number  of  specified  frequencies 

NWA 

WA 

Specified  frequencies  (tr.dians) 
chosen  bv  user  according  to  his 
boundary  specifications 

Decimal 

WA 

Comment:  There  nre  NXYZ  ^ets  of  data  cirrfs  for  this  subroutine. 


Description  for  Subroutine  Cross  Correlation 


X 

y  • 

Coordinates  of  fixed  point 

MXP 

Number  of  variable  point.-' 

MTAU 

Number  of  r’s 

EPS 

Convergence  constant 

NMAX 

Maximum  number  of  iterations 

r 

Value  of  r 

*  1 

rJ 

Coordinates  of  variable  points 

NOR 

. . 

=  0 

Decimal 

Integer 

Decimal 

Decimal 

Decimal 

Decimal 

Integer 


Comment  There  are  KXYZ  sets  of  input  cards  for  this  subroutine. 


Description  for  CROSS  2  Correlation 
( Time  and  Frequency  Dependent) 


Decimal 

XX 

Coordinate  of  fixed  point 

Decimal 

YY 

Decimal 

77 

Number  of  \ariable  points 

Integer 

MXP 

Initial  value  of  r 

Decimal 

TAU 

Increment  of  Ar 

Decimal 

DTAU 

Number  of  r’s 

Integer 

NTAU 

Convergence  constant 

Decimal 

EPS 

Maximum  number  of  iterations 

Number  of  frequencies 

NMAX 

NWA 

Decimal 

XP(I) 

Coordinate  of  variable  point 

Decimal 

YP(I> 

Decimal 

ZP(1) 

-0 

NOR 

Different  frequencies  (radians)  chosen 

| 

by  user 

i 

Comment:  There  must  be  LXYZ  sets  of  input  cards. 
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Trniiflfl 


Description 

Program  Label 

Output  Label 

Description  for  AUTO  1  Autocorrelation  with  Two  Options 
(J.  STAV  -  no.  points  of  time ;  2.  NWS  -  no.  frequencies) 

Number  of  time  increments 

K 

NTAU 

Point  of  timo  at  which  auto¬ 
correlation  taken 

ATAl’ 

TAD 

Normalized  autocorrelation  of 
acoustic  pressure  over  timo,  i.o., 

#/’(*,  -*2’’ )  (xi  --^2.0) 

RPBAR(K) 

NORM.  COR.  OF 
ACC.  PRES. 

Autocorrelation  normalized  by 
rms  pressure 

PRP(K) 

RP(K)/P2 

Normalized  factor  RP(I)  for 
RPBAR(K).  i.o.,  Rt>(xi-xr0)  or 
«!,  (0,0) 

RP(1> 

NORM.  FACTOR 

Comment:  Above  not  printed  out  if  NTAU  -  0 

Number  of  frequency 

X 

K 

Specified  frequencies 

WA(K) 

FREQ 

WA  (K)  /2ir 

RAD 

RAD/SEC 

Cross  spectral  density 

F1(K) 

CROSS  SPEC.  DENS. 

10LOO(FI(K))  i  127.8 

PHI 

DB(RE0.0002) 

Comment:  Above  not  printed  out  if  NWA  0 

Description  for  CROSS]  (for  Various  Times  in  Space) 

Indicates  timo 

I 

I 

Point  of  time  at  which  cross- 
correlation  computed 

TAD(I) 

TAD 

Indicates  space 

J 

J 

XP(J) 

XP(J) 

Space  coordinates 

YP(J) 

YP(J) 

ZP(J) 

ZP(J) 

Normalized  cross-correiation 

CRPBAR(LJ) 

CRPBAR(I.J) 

Normalization  factor  - 
CRPBAR(1,1) 

CNORM 

CNORM 

Description  for  CROSS 2  (Time  Variable) 

Number  of  timo  point 

K 

NTAD 

Point  of  timo 

TAD 

TAD 

Normalized  correlation  of 
acoustic  pressure,  by 

RP(xl-x2, 0)  orff,2(0,0) 

RPBAR(K) 

NORM.  CORR.  OF 
ACC.  PRESS. 

Correlation  normalized  by 
rms  pressure 

RP(K)/P2 

PRP(K) 

Normalization  factor  R(’(xl~  x2,0) 

RP(1) 

NORM.  FACTOR 

Number  of  frequency 

K 

K 

Specified  frequency 

WA(K) 

FREQ 

Frequency  /2ir 

RAD 

RAD/SEC 

Cross  spoctral  density 

FI(K) 

CROSS  SPEC.  DENS. 

10  LOG(FI(K)  ♦  127.8 

PHI 

DB(RE0.0002) 
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Interpretation  of  Data  Output  and  Computer  Running  Times 

The  following  information  is  useful  in  interpreting  the  program. 

The  program  generally  yields  results  normalized  by  p2  or  by  the  correlation  of  two 
points  at  r  *  0. 

The  Electric  Boat  program  consists  of  two  parts  which  represent  the  simple  case  and 
the  general  case.  The  simple  case,  Equation  (C(35)),  uses  only  simply  supported  boundaries 
for  the  plate  modal  function  although  frequencies  for  clamped  boundaries  may  be  used.  This 
procedure  yielded  Figure  12  (see  page  154).  The  general  case  uses  mode  shapes  represented 
by  Equation  (C(26)).  In  addition  the  program  requires  either  of  the  following  values  for  C 

P0  V 

C  * -  (s;mply  supported  boundaries) 

2t T2M2LxLy 

PqAp2 

C  - - - .  (clamped-clampeo  boundaries) 

8  n2M2 


Figure  12  (Figure  17  in  Reference  26),  is  normalized  by  fln(0,0),  that  is,  the  auto¬ 
correlation  function  of  the  fixed  point  at  r  =  0.  Therefore,  the  nonnormalized  correlation 
for  each  A  x,t  desired  was  abstracted  from  the  program  and  divided  by  ^(0,0)  to  yield  this 
curve.  Similarly,  calculations  were  necessary  to  obtain  the  data  in  the  form  used  in  Figure 
13  (Figure  15  in  Reference  26);  see  page  207  of  this  report.  The  program  yields  a  normalized 
answer  in  CROSS2,  which  is  not  in  suitable  form  for  representing  the  curve  as  shown.  There¬ 
fore,  the  normalized  program  result  is  manually  multiplied  by  the  NORM  FACTOR  to  give  a 
non-normalized  quantity  #12(A  X ,  r);  see  equation  below.  More  precisely,  this  is  accom¬ 
plished  by  first  multiplying  the  number  in  the  upper  right  corner  labeled  “NORM  FACTOR-”, 
by  the  corresponding  quantity  in  the  column  labeled  “NORM.  CORR.  OF.  ACC.  PRESS,”. 
Only  r  =  0  was  used  for  this  curve  so  that  the  corresponding  quantity  would  appear  in  the  line 
for  TAU  =  0.  The  second  step  is  to  get  the  normalization  factors  from  AUTOl,  which  must 
have  as  many  cases  as  there  are  variable  points  in  CROSS2.  Ry  ^0,0)  refers  to  R(x x  , 

r  =  0)  for  all  cases  where  11  is  a  fixed  reference  point  in  the  longitudinal  direction,  but 
R 22 (0,0)  refers  to  R(x2~x2,  r  =  0)  where  22  is  any  other  point  in  the  longitudinal  direction. 
The  coi responding  cross  points  are  denoted  by  12  in  the  correlation  function,  i.e.,  /?12( Aa;,r). 
The  quantity  to  be  used  from  AUTO  1  is  labeled  “NORM. FACTOR =” . 

The  total  function  plotted  then  becomes 


NORM. CORR.  OF  ACC.PRESS.  (from  (CROSS2))  x  NORM-FACTOR  (CROSS2) 
V'NORM.FACTOR  (AUTOl  with  Xx)  x  NORM. FACTOR  (AUTOl  with  X2). 
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The  niujor  subroutines  results  and  running  timos  on  the  IBM  7090  are: 


AUTO  1 

CROSS  1 

CROSS  2 

1.  Autocorrelation 

1.  Cross  correlation 
keeping  time  constant 

1.  Cross  correlation,  varying 
time  and/or  space 

2.  Auto  power  spectrum 

2.  Not  Applicable 

2.  Power  spectrum  for 
first  point 

Approximately  3  min 
per  case  (i. e. ,  point) 

Approximately  3  min  for  1 
point,  1  time  (see  CR0SS2) 

Approximately  1.5  min  per 
variable  point  over  120 
time  increments 

The  printout  yields  intermediate  results,  such  as  integration  sums  and  nonnormalized, 
noncumulative  rosults  for  each  mode.  For  example,  37  modes  would  imply  37  sets  of  these 
results,  followed  by  the  normalized  answers  for  each  of  the  major  subroutines.  For  the  auto¬ 
spectrum  final  results,  the  labels  FREQ,  and  RAD/SEC  should  be  interchanged. 


TABLE  4C 

Flow-Chart  (Electric  Boat)  Turbulence-Excited,  Clamped 
Simply  Supported  Plate  Problem 


READ  MODAL  DATA, 
FLUID  DATA, 
INTEGRATION  LIMITS 


TABLE  4C  (Continued) 


TABLE  4C  (Continued) 


COMPUTE  VARIABLES 
DEPENDENT  ON 


m,n 


DINT 
ffdzdyXtoYty) 


COMPUTE  SPECTRAL 
DENSITY  SP 


(5 


I  COMPUTE C 
5  OFACOUSTI 
1  RPN  (TIME  [ 

ORRELATION 

C  PRESSURE 
IEPENDENT) 

0 

WRITE: 

SP,  RPN 

COMPUTE  AND 
TOTAL  AC 
CROSS-CORF 
WRITE  Ah 

NORMALIZE 

OUSTIC 

{ELATION 

ISWERS 

^  RETURN  ^ 
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TABLE  4C  (Continued) 


TABLE  4C  (Continued) 
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TABLE  4D 


Input  Format  for  Main  Program,  General  Case 


TITLE 


10  20  30  40  50  60  70  80 

n  3  i  i  i  i  ixi 


TITLE  — 

)  20  30  40  K 

)  60  71 

r  80 

>< 

Coiumnt  1-40,  below,  contain  respectively,  in  4-column  block*:  MM;  NN;  IM;  IN;  NXYZ;  KXYZ,  LXYZ; 
NAUTO;  NCROSS:  NCROST 


Al  15  B  3( 

1  C  45  THETA  6C 

1  P2  7; 

5  80 

SI 

IMxIN  **t*  of  6-column  block*  art  needed  for  th*  W(IM,IN)  orroy:  w(l,1);  w(l,2);  . . .  ;  w(1,IN);  w(2,l); . . . 
,  w(2,IN);  w(IM,IN) 


W  array  6  12  18  24  30  36  41 

!  48  54 

1  6( 

)  6f 

)  72  80 

■ 

■ 

■ 

■ 

u 

■ 

SI 

(MM  +  NN)  /20  cord*  or*  noodod  to  complot*  arrays  MAM  (MM)  and  NAN(NN):  MAM(1);  MAM(2);  . .  . ; 


MAM  (MM);  NAN(l);  NAN  (2);  . . . ;  NAN(NN) 

4  8  12  16  20  24  28  32  36  40  44  48  52  56  60  64  68  72  76 _ 80 


MM  cord*  or*  noodod  to  complete  the  following  array*:  (used  In  general  cat*  only) 

ALMMO)  15  AMM(l)  30  BMM(l)  45  CMM(I)  60  DMMG)  75  .80 

z . i  i . :  i  i  m 


ALMM(MM)  15 

AMM(MM)  3C 

1  BMM(MM)  45  CMM(MM)  60  DMM(MM)  7; 

5  80 

s 

NN  cord*  or*  noodod  to  complot*  th*  following  arrays:  (u»»d  In  general  cos*  only) 


ALNN(l)  15 

ANN  (1)  30  8NN(2)  41 

i  CNN(l)  60  DNN(l)  75  80 

s 

ALNN(NN)  15  ANN(NN)  30  BNN(NN)  45  CNN(NN)  60  DNN(NN)  75  80 


NWA/12  cords  or*  n»*dtd  to  compUt*  th*  WA(NWA)  array: 

WA(1)  WA(2)  ...  ...  WA (12) 


6  12  18  24  30  3d  42  48  54  60  66  72  80 


INPUT  FORMAT  FOR  SUBROUTINE  CROSS  1 

MTAU 

XX  12  YY  24  ll  36  MXP  42  48  EPS  60  NMAX  66  72  80 


MTAU/6  cards  or*  n**d*d  to  complot*  th*  TAU(MTAU)  *rroy: 


TAU(l)  12  TAU(2)  24  . . .  36  . .  -  48  ...  60  TAU(6)  72  80 


MXP/2  cord*  ar*  n*«d*d  to  complot*  th*  following  arrays: 

NOR(I)  XP(2) 

XP(1)  12  YP  (1)  24  ZP(1)  36  40 


NOR  (2) 

52  YP  (2)  64  ZP  (2)  76  80 


TABLE  4D  (Continued) 

INPUT  FORMAT  FOR  SUBROUTINE  CROSS  2 

MXP  NTAU  NMAX  NWA 


XX  12  YY  24  ZZ  36  39  TAU  31  DTAU  63  66  EPS  72  75  78  80 


MXP/2  cards  or*  notdod  to  cornplata  tha  following  arrays: 


NOR(l)  NOR  (2) 


XP(1)  12  YP(!)  24  ZP(1)  36  40  XP(2)  52  YP(2)  64  ZP(2)  76  80 


NWA/12  cords  ora  naadad  to  complota  tha  WA(NWA)  array: 


WA(1)  WA (2)  .  WA(12) 


6  12  18  24  30  36  42  48  54  *0  66  72  80 


APPENDIX  C4  -  TEST  RUNS 


Test  runs  for  the  power  spectrum,  longitudinal  correlation  function,  and  longitudinal 
space-time  correlation  function  of  the  acoustic  pressures  are  plotted  in  Figures  12,  13,  and 
14.  The  computer  programs  used  to  obtain  these  results  have  been  given  in  Table  4,  and  the 
computer  listings  are  presented  in  Table  5. 
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Figure  12a  —  Clamped-Clamped  Steel  Plate 

This  oubfigure  is  based  on  the  use  of  frequencies  obtained  for  a  clamped-clamped  plate  but 
modes  obtained  for  a  simply  supported  plate,  (see  statement  following  Equation  (C34)) 


This  subfigure  is  based  on  the  use  of  frequencies  and  mode  shapes 
obtained  for  a  simply  supported  plate. 

Figure  12  -  Longitudinal  Space-Time  Correlation  Function  for  a  2-Foot  x 
2.33-Foot  x  3/8-Inch  Steel  Plate 
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Figure  14  —  Computed  Power  Spectrum  for  a  2-Foot  x  2.33-Foot  x  3/8-Inch  Steel  Plate 


n  n 


TABLE  5 


Computer  Listings  for  Electric  Boat  Program  -  Izzo 


Table  5A  —  Simply  Supported  Boundaries 


* I0FTC  TURAD2 


1000  FORMAT ( 12A6 ) 

1001  FORMAT ( 1014) 

1002  FORMAT (4E 12*6/ 5E 15.8) 

1003  FORMAT! 12F6.0) 

1004  FORMAT  1 2014 ) 

1005  FORMAT (  5£1 5.8 ) 

C 

2000  FORMAT ( 1H1 » 10X  *6HF  «P.S» • 15X .12A6/22X » 12A6//// ) 


2001  FORMAT  ( 1H0.29X.45HORDER  OF  M  (MODE  NUMBERS)  .......a......  MM  «=*! 

16/30X.45HORDER  OF  N  (MODE  NUMBERS)  .•••..«*....••  NN  =.I6/30X. 

245HNUMBER  OF  CASES  (XYZ)  IN  AUTO  CORR...  NXYZ  «♦ I6/30X .45HNUMBER 
30F  CASES  (XYZ)  IN  CROSS  CORR..  KXYZ  =#I6  /  30X.45HAUT0  CO 


4RRELATION  CONSTANT  ........«•  NAUTO  =# I6/30X »45HCR0SS  CORRELATION 


5CONSTANT  ..........  NCROSS  «. I 6/30X .45HLIMITS  OF  THE  1-ST  INTEGRAL 

6  ttftt.fi  XL1  =  *F1 1  .4/30X  »45H 


7  XLO  3  »F1 1 .4/30X.45HL IMITS  OF  THE  2-ND  INTEGRAL  Y 


8L1  *«F11«4/30X*45H  YLO  «*F1 
91.4/30X*45HSPEED  OF  SOUND  IN  WATER  ttt t .ttttttttt. t  AI  «iF13.6/30X 
A*45HDAMPING  CONSTANT  .«.«**« 4 . tt. ttttttttt. tt  B  * *F13.6/30X »45HC 


BCONSTANT  ....... .t.t ttt .............. .  C  = »F13.6/30X*45HTEMPORAL  D 

CECAY  FACTOR  OF  TURBULENCE  THETA  =»F11.4/30X*45HR.M.S.  PRESSURE  . 
. . .  P2  =*F13.6//30X.2I10) 

2002  FORMAT! lH0f40X*35HUNDAMPED  NATURAL  FREQUENCIES  W(M*N)//( 10X»10F8.0 
X) ) 

2003  FORMAT ( 1H0»50X *12HMODE  NUMBERS//(40X« 1015 ) ) 

2005  FORMAT! 1HO«40X»35HNORMALIZED  EIGENFUNCTION  PARAMETERS  //(15X*5E18. 
18)  ) 

2006  FORMAT! 1H0*29X»45HNUMBER  OF  CASES  IN  CROSS  CORR.  (TIME)..  LXYZ«» 

1 I 6/30X .45HCROSS  CORR.  (TIME)  CONSTANT  .........  NCR0ST«.I6// 

230X.2H0) 

C 

C 

COMMON  /AAA/A(4000) 


0000 
10 
20 
30 
40 
0*50 
0  60 
0  70 
0  80 
90 

0100 

0110 

0120 

0130 

0140 

0150 

0160 

0170 

0180 

0190 

0200 

0210 

0220 

0230 

0240 

0250 

0260 

0270 

0280 

0290 

0300 

0310 

0320 

0330 

0340 

0350 

0360 
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TABLE  5A  (Continued) 


EQUIVALENCE  (A(1)»MM)»(A(2)»NN)»(A(3)»IM)»(A(4),IN)»(A(5) *NXYZ *  *  0370 

1 ( A(6 ) .KXY2 ) . ( A( 7 ) .NAUTO) ,(A(8).NCROSS).(A(9).M).(A(10).N)  ,  0380 

2(A(11)»LXYZ)»(A(12) .NCROST  <  0390 

C  0400 

EQUIVALENCE  ( A< 21 )  ,XL1 ) . I A ( 22 ) .XL0 ! . ( A( 22 ) . YL1 ) , ( A( 24 ) *YL0) *  0410 

1  ( A  ( 25 :  .AI).(A(26)  ,8 ) . ( A( 27 ) »C ) . ( A( 28 ) .THETA) » ( A( 29 ) ,P2 ) . ( A( 30 ) .PI)  0420 

2»(A(31)»X)»(A(32)»Y)»(A(33)»Z)»(A(34)*EPS)»tA(35) »NMAX ) .  0430 

3( A( 36) <WMN) * ( A( 37 ) »AMN 1 . ( A { 38 ) .SUM1 ) • t  A{ 39 ) . SUM2 )  0440 

C  0450 

EQUIVALENCE  ( A< 101) .MAM) . { A< 151 i »NAN ) * ( AM 001 ) »W>  0460 

0470 
0480 

DIMENSION  TITLE! 24 )  .WI20.50) *MAM( 50 > .NANI 50 )  0490 

0500 

REAL  KMN  0510 

0520 

READ  AND  PRINT  TITLE  0530 

0540 

READ  15.1000)  (TITLE!!). 1-1.24)  0550 

WR ITE( 6*2000 )  ( TITLE! I )• 1*1.24)  0560 

0570 

READ  AND  PRINT  GENERAL  INPUT  CONSTANTS  0580 

0590 

READ  (5.1001)  MM.NN. IM. I N .NX YZ  »KXYZ  *LXYZ .NAUTO .NCROSS .NCROST  0600 

READ! 5 .1002 )  XL1 .XL0.YL1 .YLO.AI .B.C. THETA. P2  0610 

READ  (5.1003)  ( ( W< 1  .J ) ♦ J*1 . IN ) . I *1. IM )  0620 

READ  (5,1004)  (MAM( I )« 1*1. MM) * (NANI  I ) *  1  =  1 .NN )  0630 

C  0640 

WR 1TE( 6.2001 )  MM.NN.NXYZ .KXYZ.NAUTO.NCROSS.XL1.XLO.YL1.YLO.AI .8.  0650 

1C.THETA.P2  0660 

WRITE! 6 .2006 )  LXYZ .NCROST. IM. IN  0670 

WRITE! 6.2002 )  ( ( W< I »J) . J*1 . IN ) • I *1 . IM )  0680 

WR ITEI 6,2003 >  (MAM ( I ) • 1*1 ,MM) « (NAN! I ) » 1*1 .NN i  0690 

C  0700 

C  0710 

PI«3. 14159  0720 

C  0730 
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TABLE  5A  (Continued) 


AUTO  CORRELATION  0740 

0750 

IF  INAUT0.EQ.1)  CALL  AUT01  0760 

0770 
0780 

CROSS  CORRELATION  0790 

0800 

IF  <NCROSS»EQ«l>  CALL  CROSS1  0810 

0820 
0830 

CROSS  CORRELATION  (TIME!  0840 

0850 

IF  (NCROST #EO» 1 )  CALL  CROSS2  0860 

0870 
0680 

STOP  08  0 

END  0900 

IFTC  XAUTOl  0910 

SUBROUTINE  AUT01  0920 

0930 
0940 
0950 
0960 

AUTO  CORRELATION)  X*XP  *  Y»YP  #  Z«ZP  0970 

0980 
0990 

3000  FORMAT!5E12.£«I4.E6«2»2I4J  1000 

3001  FORMAT! 12F6.0)  1010 

C  1020 

4000  FORMAT! 1H1,50X»16HAUTO  CORRELATION///30X»1HX*30X» 1HY.30X# 1HZ//  1030 

122X»E14.8,17X#E14.8«17X»E14.8//10X*5HTAU  **E14.8*5X*6HDTAU  =*E14.8  1040 

2.5X*6HNTAU  *# I4*5X«5HEPS  *#E14.8.5X*6HNMAX  «*I4  *5X*5HNWA  **I4  /)  1050 

4002  FORMAT llHltSH  PNT  CNT*12X« 1HX# 12X»1HY.12X» 1HZ»12X» 1HM*4X t 1HN.5X»  1060 

1  4HFREO»3X.21HM.S.  SPECTRAL  DENSITY«4X*20H  DB!RE*0002)  //  1070 

2I6»10X.F9.4*4X«F9.4.4X*F9»4#I10*I5i3X»F6.0»5X»E16.8»6X,E16.8////  1080 

X40X  1090 

3i1HK«8X»3HTAU.15X»9HRPMN!TAU)  //)  1100 
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4003  FORMAT  (  1H  .  30X » I10.E16. 8 .E20.8 )  1110 

4004  FORMAT dHO » 50X • 12HINTEGRAT IONS  //  33X.9HINT.  NUM..5X.  8H  MESH  »  1120 

15X.6HM  N.10X.  4HSUM2 » 16X  »  4HSUM1)  1130 

4005  FORMAT dHl  * 30X .44HN0RMAL 1 2 ED  CORRELATION  OF  ACCOUSTIC  PRESSURE///  1140 

110X.  4HNTAU.10X.  3HTAU.10X.25HNORM,  CORR.  OF  ACC.  PRES. • 10X»  1150 

28HRP (K1/P2.12X. 14HN0RM.  FACTOR  **E14.8//)  1160 

4006  FORMAT ( 1H  .  8X . I4.8X.F8 . 6. 10X .E16.8 . 1 IX .E16.8 )  1170 

4010  F0RMATI1H1.7E16.8I  1180 

4011  FORMAT ( 1H1 . 30X .23HAUTO  SPECTRAL  DENSITY  ///12X. 1HK.10X.  4HFREQ*  1190 

UOX.  7HRAD/SEC.10X.17HCR0SS  SPEC.  DENS. » 10X. 11HDB (RE. 0002 )// >  1200 

4012  FORMAT ( 1H  .8X.I4.  8X«F6.0*8X»F9.4*2 (10X .E14.8 ))  1210 

4013  FORMAT (1H0.30X » 18HCH0SEN  FREQUENCIES  //dOX.lOFlO.O)  >  1220 

4014  FORMAT (1H1.30X.1HK. 10X.4HFREQ.10X.7HR AD/SEC.10X.17HMODAL  SPEC.  DEN  1230 

1S..10X.1 1HDB (RE.0002 )  //)  1240 

4015  FORMAT ( 1H  .21X t I 10.8X.F6.0.8X.F9.4.2 (8X.E16.8 ) )  1250 

1260 
1270 

COMMON  /AAA/AI4000)  1280 

C  1290 

EQUIVALENCE  (Ad)»MM)*<A(2) »NN) *(A(3)»1M)»(A(4)*IN)*(A(5) »NXY2 ) ♦  1300 

l(A(6).KXY2).{A(7>.NAUTO)»<A<8).NCROSS)*(AI9).M).(AdO)»N)  1310 

EQUIVALENCE  ( A( 21 ) .XL1 ) . ( A< 22 ! .XLO ) . ( A( 23 ) «YL1 ) *  I A( 24) »YL0) ♦  1320 

1IA(25).AI)  «(A(26).B).(A(  27)  «C).<A(28)»  THETA),  f  A  ( 29 )  .*>2  >  •  (  Af  30 )  .PI)  1330 
2.(A(3l).X).<A(32).Y)»(A(33)»2).(A(34) .EPS ) . ( A( 35) *NMAX ) .  1340 

3( A( 36 ) .WMN) . ( A( 37) ,AMN ) . ( A ( 38 ) .SUM1 ) » t A{ 39 ) .SUM2 ) .  1350 

4(A(40).JA).(A(41).JB)  1360 

EQUIVALENCE  <  AI101 )  .MAM)  ♦  ( Ad51 )  .NAN)  » I AI1001  >  »W)  1370 

C  1380 

DIMENSION  MAM  (  50  )  .NAN  (50)*W(20.50).RPdlO)  .RPBARI  HO).PRP(llO)  *  1390 

1WAI1 10 1 .FI (110 )  1A00 

C  1410 

REAL  KMN  1A20 

C  1430 

CONVT  *  60000.  1440 

C  1450 

C  1460 

DO  5  II-l.NXYZ  1470 
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c  1460 

READ  (5*3000 )  X*Y*Z*TAU*DTAU*NTAU*EPS*NMAX,NWA  1490 

C  1500 

WRITE(6*4000)  X*Y*Z*TAU*OTAU*NTAU*EPS*NMAX*NNA  1510 

C  1520 

IF  (NWA)  2*1*2  1530 

C  1540 

2  READ  (5,3001)  (WA( K ) *K»1 «NWA)  1550 

WRITE! 6*4013 )  (WAIIC)  *K«1#NWA>  1560 

1570 
1580 

1  ATAU  »  TAU  1590 

C  1600 

DO  6  IA«1*NTAU  1610 

6  RP(IA)  «  0.  1620 

C  1630 

DO  7  I A»1 *NWA  1640 

7  FKIA)  »  0*  1650 

C  1660 

DO  10  I«1*IM  1670 

DO  10  J*l« IN  1680 

JA  ■  J  1690 

JB.J  1700 

IF  ( IM*EQ*MM)  JA«I  1710 

M«MAM(JA)  1720 

N  «  NANI J)  1730 

C  1760 

WMN  «  W(l*J)  1750 

C  1760 

KMN  »  C*THETA  /  (B#(  l.+WI  I  *  Jl  **2*THETA**2) )  1770 

AMN  «  B*W(I«J)  1780 

CMN  ■  W(I.J)*(1.-6«*B**2  +  8**4)  1790 

DMN  «  4«*B*W( I *J)*(B**2-1« )  1800 

C  1810 

WBAR 1» ( B**2+2 « )  /(B*W( I *J)*IB**2+4« ) )  1820 

WBAR2  »  0*WBAR1  /  (B **2+2«  )  1830 

CBAR  *  KMN*W( 1 «J)*P2  1840 
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C  1850 

WRITE! 6*4010 )  KMN * AMN iCMN.DMN.WBARl .WBAR2 t CBAR  1860 

WR!TE(6*4004)  1870 

C  1880 

PHASE* 1.5708  1890 

KKK«2  1900 

CALL  DINT  (AMN .PHASE. KKK)  1910 

CAP2*SUM2  1920 

C  1930 

KKIC- 1  1940 

AMN—AMN  1950 

CALL  DINT  (AMN .PHASE .KKK)  1960 

CAP1-SUM2  1970 

C  1980 

KKK*5  1990 

PHASE*0.  2000 

CALL  DINT  (AMN .PHASE .KKK)  2010 

CAP5*SUM2  2020 

C  2030 

KKK*4  2040 

AMN«-AMN  2050 

CALL  DlNI  (AMN (PHASE* KICK)  2060 

CAP4-SUM2  2070 

2080 
2090 

SP  «  CBAR*  (WBAR1*CAP1*CAP2  +  WBAR2*CAP1*CAP4  -  WBAR2*CAP5*CAP2  +  2100 

1WBAR1*CAP5*CAP4  )  2110 

C  2120 

IF  (SP)  11.11(12  2130 

11  PHI  *  0.  2140 

GO  TO  13  2150 

12  PHI  *  10.*  ALOGIO(SP)  +  127.6  2160 

13  WRITE (6 *4002  I  1 1 (X(Y*Z(M(N(W< I *J) (5P*PHI  2170 

IF  (NTAU)  22.21.22  2180 

22  r4L'  *  ATAU  2190 

C  2200 

DO  15  K-l.NTAU  2210 
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C  2220 

TH1  *  CMN*COS(W( I*J)*TAU>  +  DMN  *  SIN(W( I *J)*TAU)  2230 

TH2»CMN#SIN(W< I ♦ J)*TAU)-DMN*COS(W( I*J)*TAU)  2240 

2250 
2260 

RPN«KMN#EXP(-AMN*TAU)  *  (TH1»CAP1*CAP2  +  TH2*CAP1*CAP4  -  TH2  2270 

1*CAP5*CAP2  +  TH1*CAP5*CAP4)  2280 

RPOO-RPOO+RPN  2290 

C  2300 

WRITE(6«4003)  K.TAU.RPN  2310 

C  2320 

15  TAO  *  TAU  ♦  DTAU  2330 

C  2340 

21  IF  (NWA)  14*10*14  2350 

14  WRITE<6*4014)  2360 

C  2370 

00  20  K*1.NWA  2380 

RAO  «  WA(K ) /( 2»*PI )  2390 

DD  «  (B*#2*W< I*J>*»2  >  (W(I*J)“WAOa  )**2>*  ( B**2*Wi I  * J)**2  +  2400 

1(WII*J)  ♦  WA(K))»*2)  2410 

C  2420 

AAMN  «  (B*W(I*J)*(B**2*WU«J)**2  +  W(I*J>**2  +  WAOO**2))  /  DD  2430 

BBMN  «  <W( I »J)*(B**2*W( I *J)**2  +  W(I*J)**2  -  WA(K)**2>)  /  DD  2440 

C  2450 

TW1  *  CMN*AAMN  +  DMN*BBMN  2460 

TW2  *  CMN*BBMN  -  DMN*AAMN  2470 

C  2480 

FIT  «  KMN  *  ITW1»CAP1*CAP2  ♦  TW2«CAP1*CAP4  -  TW2«CAP5*CAP2  +  2490 

1TW1*CAP5*CAP4 )  2500 

C  2510 

FAT  «  FIT  2520 

IF  (FIT)  19*19.17  2530 

19  PHI  *  0.  2540 

FIT  «  0*  2550 

GO  TO  18  2560 

17  PHI  ■  10.*ALOG10(FIT>  +  127.6  2570 

18  WRITEI6.4015)  K»WA(K) *RAD*FAT .PHI  2580 
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C  2590 

20  F1IKI  *  Fl(K)  *  FIT  2600 

C  2610 

10  CONTINUE  2620 

C  2630 

IF  (NTAU)  52*51*52  2640 

C  2650 

52  WRITEI6.4005)  RP(1)  2660 

C  2670 

DO  30  K-l.NTAU  2660 

RPBARI K ) «RP (K  )  /RP(  1 )  2690 

PRPIK)  «  RPIM/P2  2700 

WRITE(6«4006)  K*ATAU»RPBAR ( K) *PRPIK *  2710 

30  ATAU*ATAU+0TAU  2720 

C  2730 

51  IF  (NWA)  61*5*61  2740 

61  WRITEI6.40U)  2750 

C  2760 

DO  40  KiltNWA  2770 

RAD  »  WAIK ) /( 2»*PI )  2780 

IF  ( Ft (K) )  71*71*41  2790 

71  PHI  »  0,  2800 

GO  TO  40  2810 

C  2820 

41  PHI  «  10.*  ALOGIOI FI (K) I  +  127.6  2830 

40  MR ITEI6.4012 )  KtWAIKI «RAD*FI ( K ) .PHI  2840 

5  CONTINUE  2850 

C  2860 

C  2870 

RETURN  2880 

END  2890 

SIBFTC  XCROS1  2900 

SUBROUTINE  CROSS1  2910 

C  2920 

C  2930 

C  2940 

C  CROSS  CORRELATION)  TIME  ■  CONSTANT  2950 
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2960 

2970 

2960 


1000  FORMATt  3E12.6 .216 1 E12.6. I6/(6E12.8))  2990 

1001  FORMAT(2(3E12.6.I4)  )  3000 

3010 

2000  FORMATt 1H1.50X.17HCROSS  CORRELATION///20X. 1HX.20X. 1HY.20X* 1HZ .20X.  3020 

13HMXPtl0X.4HMTAU.10X.  3HEPS*10X#  4HNMAX  //12X.E14.8 .2( 7X*E1A.8 ) *  3030 

214X. I4.9X. 14.  5X.E12.6.7X.I3//  5X.7HTAU( I)«.5E16.8//12X»5E16.8// )  3040 

2001  FORMAT  < 1H0.30X.2HXP.20X.2HYP .20X  »2HZP» 1 OX .3HN0R// (  23X.E14.8.8X.E14  3050 

1.8.8X.E14.8.5X.I3  ))  3060 

2002  FORMATt 1H0.1HI  .4X.3HTAU.4X.  7HPNT  CNT.5X.2HXP.10X.2HYP.10X.2HZP.  3070 

110X.  6HM  N.4X.4HFREQ  ,  5X * 17HCR0SS  SPEC.  DENS. t5X.HH0BIRE.0002  3080 
2) »5Xt  9HRPMN ( TAU ) // 12 .El 1 . 5 t I4tE14.6tE12.6tE12.6t2X.2I5t2XtF6.0t  3090 

36XtE14«8t4Xt2E14.8  )  3100 

2004  FORMAT ( 1H1 »4X 1 1HI 1 8X t  3HTAU. 12X » 1HJ* 10X .5HXP ( J) t9X t5HYP( J ) t  9Xt  3110 

15HZP ( J) »12X»11HCRPBAR( I . J) » 10X. 12HN0RK.  FACTOR///  16t5XtE10.5t  3120 

24X«I5»3X*3E14.6.E20.6»E22.8/(25X.I5«3X.3E14.6»E20.8»E22.8) >  3130 

2005  FORMAT ( 1H0.50X.12H INTEGRATIONS  //  33X.9HINT.  NUM..5X.  8H  MESH  t  3140 

15X.6HM  NtlOXt  4HSUM2.16X.  4HSUM1 )  3150 

2010  FORMAT ( 1H1 .7E16.8 )  3160 

3170 

3180 

COMMON  /AAA/A (4000)  3190 

C  3200 

EQUIVALENCE  (A(l)tMM).(A(2) .NN) t(A(3).IM)t(A(4)tIN)t(A(5) tNXYZ ) t  3210 

1 ( A ( 6 ) tXXYZ ) t ( At  7 ) t NAUTO) . ( A( 6 ) tNCROSS )t(A(9)tM)t(A(10).N)  3220 

EQUIVALENCE  (A(21)tXLl)i(A(22)tXL0)t(A(23)tYLl)t(A(24)tYL0)t  3230 

l(A(25).An.(A(26).BJt(A(27).C)t(A(28).THETA).(A(29).P2).(A(30) tPI)  3240 

2t(A(31).X)t(A(32)tY)t(A(33) .Z) . ( A< 34) .EPS) t ( A( 35 ) .NMAX) t  3250 

3( A(36) tWMN) t ( A(37) tAMN) t ( A( 36 ) .SUM! ) i ( A( 39) .SUM2 ) t  3260 

4(A(40l.JA),(A(41J.JB)  3270 

EQUIVALENCE  ( A( 101 ) .MAM) , ( A< 151 ) .NAN) . I  At  1001 ) .W) r ( A( 2001 ) .DIX1J .  3280 

1 (At  3001 ) .DIX5 )  3290 

C  3300 

DIMENSION  TAV(110)tXP(50)tYP(50)tZP(50) .NOR <  50 ) tMAMt  50 ) t  3310 

1NAN(50).W(20.50).DIX1(20»50J .01X5(20.50) tCRPBARt 50)  3320 
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TABLE  5 A  (Continued) 


C  3330 

REAL  XMN  3340 

3350 
3360 
3370 

CONVT  =  60000*  3380 

3390 
3400 

00  5  1 t*l*KXYZ  3410 

3420 

READ  ( 5*1000 )XX« YY  «ZZ  *MXP *MTAV*EPS*NMAX» ( TAV( I ) t Ial *MTAV)  3430 

WRITE) 6.2000 )XX«  YY  *ZZ  *MXP#MTAV*EPS*NMAX.  )  TAVU)  *  t»l  *MTAV>  3440 

3450 

READ  I5.1001MXPI  H  *VP(I  >  »2PUJ  »N0RII)  *  I»1*MXP)  3460 

WR!TE(6.2001))XP(n*YPm*ZPm*NORU)*  !»1*MXP)  3470 

3480 

DO  10  I«l*  MTAV  3490 

3500 

DO  20  J«1»MXP  3510 

CRP  «  0.  3520 

3530 
3540 

DO  30  K»1»IM  3550 

DO  30  L*l* IN  3560 

JA-L  3570 

JB-L  3580 

IF  ( IM*E0*HM)  JA-K  3590 

M-MAM(JA)  3600 

N-NANIL)  3610 

WMN«  W(K*L)  3620 

C  3630 

KMN  «  C*THETA  /  <B*I  l.*W(K*U**2*THETA**2)  >  3640 

AMN  «  B*W(K*L>  3650 

CMN  *  WIK*LI*<1.-6.*B**2  ♦  8**4)  3660 

DMN  *  4.*B*W(X»U*(B**2-1»)  3670 

WBAR  1*  I  B**2*2 •  )  / <  Bi-W U »l  >*  ( B**244.  > )  3680 

WBAR2*  B*  WBAR1  /  (B**2+2«)  3690 
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CBAR  *  KMN  *  W(K*L)  *  P2 

3700 

c 

3710 

WRITE(6»2010)  KMN « AMN t CMN i DMN t WB AR 1 *W8AR2 • CBAR 

3720 

WR!TE(6*2005> 

3730 

c 

3740 

IF  (J.NE.l)  GO  TO  31 

3750 

c 

3760 

X-XX 

377C 

Y-YY 

3780 

Z-ZZ 

3790 

c 

3800 

PHASE  -1*5708 

3810 

KKK-l 

3820 

AMN  —AMN 

3830 

CALL  DINT(AMN«PHASE>KKK) 

3840 

DIX1  (K*L)  -  SUM2 

3850 

c 

3860 

PHASE  -  0. 

3870 

KKK-  5 

3880 

CALL  DINT(AMN*PHASE#KKKJ 

3890 

DIX5(K*L)  «  SUM2 

3900 

c 

3910 

AHN  «  -AMN 

3920 

c 

3930 

31  X-XPIJI 

3940 

Y-YPIJ) 

3950 

Z-ZP(J) 

3960 

c 

3970 

PHASE  -1*5708 

3980 

KKK  -  2 

3990 

CALL  DlNTI AMN »PHASE *KKK 1 

4000 

CAP2  •  SUM2 

4010 

c 

4020 

PHASE  -  0. 

4030 

KKK  «  4 

4040 

CALL  DINT<AMN*PHASE.KKK) 

4050 

CAPA  «  SUM 2 

4060 
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C  4070 

SP  •  .5E+20  4080 

PH!  *  .5E+20  4090 

C  4100 

! F  (NOR(JI)  39*32*32  4110 

39  SP  ■  CBAR  *  (WBAR1*DIX1(K*U»CAP2  +  WBAR2*DIX1 ( K*L )*CAP4  -WBAR2*  4120 

1D!X5(K*L)«CAP2  +  W8AR 1 »0 1X5 (X *L! *CAP4  )  4130 

C  **140 

IF  (SP)  37*37*33  4150 

37  PH!  «  0,  4160 

00  TO  32  4170 

C  4180 

33  PH!  »  10«*  UOGIO(SP)  ♦  127.6  4190 

C  4200 

32  TH1  •  CMN*COS(W<K.L>*TAv( I ) )  +  DMN»SIN(W(K*L)*TAV< I ) )  4210 

TH2  «  CMN*S IN ( W( K *L )*TAV ( I )  )  -  DMN*COS( Wt  K*L )*TAV ( I ) )  4220 

C  4230 

RPN  •  KMN*EXP(-AMN*TAV< I ) ) * ( TH1#D!X1 t K *L) *CAP2  +  TH2*DIX1 ( K»L ) ♦  4240 

1CAP4  -  TH2*DIX5(K*l)*CAP2  +  TH1*0IX5 ( K*L )*CAP4 )  4250 

C  4260 

CRP  -  CRP  ♦  RPN  4270 

C  4280 

34  WR !TE( 6.2002 )  ! . TAV( ! ) * J *XP ( J ) *YP( J) *ZP ( J ) *M*N*W( K *L ) *SP*PHI *RPN  4290 

C  4300 

30  CONTINUE  4310 

C  4320 

IF  ( ( !+J) *E0*2 )  CNORM  -CRP  4330 

CRPBAR(J)  -  CRP  /  CNORM  4340 

20  CONTINUE  4350 

C  4360 

WRITE! 6. 2004)  I.TAV< I ) . ( J«XP( J) *YP( J ) *2P ( J ) .CRPBAR ( J) .CNORM*  4370 

1J-1.MXP)  4380 

C  4390 

10  CONTINUE  4400 

C  4410 

5  CONTINUE  4420 

C  4430 
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4440 

4450 

4460 

RETURN  4470 

END  4480 

IBFTC  XCR0S2  4490 

SUBROUTINE  CR0SS2  4500 

4510 

4520 

4530 

CROSS  CORRELATION  (TIME)  (AUTO  CORRELATION  INCLUDED  FOR  THE  FIRST  P0INT14540 

4550 

1000  FORMAT (3£12.6*I3*2E12*8*I3*E6«2«2t3)  4560 

1001  FORMAT (2(3E12*6«!4))  4570 

1002  FORMAT ( 12F6.0 )  4580 

C  4590 

2000  FORMAT ( 1H1 *50X*24HCR05S  CORRELATION  < TIME) ///30X»1HX.30X*1HY*30X*  4600 

11HZ*//4X*3E31.8///4X*  5HMXP  «*I4*4X*  5HTAU  **E14.8*4X*  6HDTAU  »*  4610 

2E14.8.4X*  6HNTAU  =*I4«4X*  5HEPS  =*E14.8.4X*  6HNMAX  • * I4*4X*5HNWA  «  4620 

3*14  /)  4630 

2001  FORMAT ( 1H0»30X*2HXP  *20X«2HYP*20X  *2HZP  * 10X • 3HN0R// (23X*E14«8*8X*E14  4640 

1.8*8X*E14.8«5X*I3  ))  4650 

2002  FORMAT ( 1H0*  9HCASE  NUM. * 5X *  1 1HINTEG.  PNT •  •  5X.2HXP* 10X*2HYP* 10X*  4660 

12HZP*10X*  6HM  N *5X»4HFRE0  *5X*21HM.S.  SPECTRAL  DENSITY*5X»  4670 

2UHDB(RE.0002)//I5.10X»I5*3X*3(3X*F9.4) ,4X *2 1 5 . 3X » F6.0 . 3X * 2E20 .8  4680 

3////40X*lHK*8X.3HTAU*15X*  9HRPMN ( TAU) // )  4690 

2003  FORMAT ( 1H0*  9HCASE  NUM* »5X*11HINTEG.  PNT.*  5X.2HXP * 10X.2HYP. 10X*  4700 

12HZP.10X*  6HM  N *5X*4HFREO  //!5*10X*I5*  3X *3 ( 3X* F9.4 ) ;4X *21 5 *3X*  4710 

2F6.0.////40X* 1HK*8X»3HT  AU«15X  *9HRPMN( TAU) // )  4720 

2004  FORMAT ( 1H  ,30X.  1 10 ,E16.8 *E20.8 )  4730 

2005  FORMAT ( 1H1 «50X*1 2H INTEGRATIONS  //  33X*9HINT.  NUM..5X*  8H  MESH  »  4740 

15X*6HM  N*10X«  4HSUM2 * 16X «  4HSUM1)  4750 

2007  FORMAT ( 1H1 *30X«44HNORMAL IZED  CORRELATION  OF  ACCOUSTIC  PRESSURE///  4760 

110X*  4HNTAU*10X*  3HTAU* 10X »25HN0RM.  CORR.  OF  ACC.  PRES. * 10X*  4770 

28HRP (K ) /P2« 12X .14HN0RM.  FACTOR  =*E14.8//)  4780 

2008  FORMAT ( 1H  *  8X. I4*8X*F8.6* 10X .E16.8 . 11X*E16.8 )  4790 

2010  FORMAT ( 1H0*30X .18HCHOSEN  FREQUENCIES  // ( 10X » 10F10.0 )  )  4800 
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TABLE  5A  (Continued) 


2011  FORMAT ( 1H1 .30X.23HCROSS  SPECTRAL  DENSITY  ///} 2X. 1H*. 10X*  4HFREQ*  4810 

110X*  7HRAD/SEC* 10X * 17HCROSS  SPEC.  DENS. . 10X» 11HDB (RE. 0002 )// >  4820 

2012  FORMAT ( 1H  ,8X. I4.8X .F6.0 «8X »F9.4 .2 t 10X.E14.8 ) >  4830 

2013  FORMAT(1H1,30X.1HK.10X.4HFREQ.10X.7HRAD/SEC.10X*17HMODAL  SPEC*  DEN  4840 

IS. *10X *11HDB( RE.0002 )  //)  4850 

2014  FORMAT ( 1H  .21X.I10.  8X*F6 .0 *8X»F9.4 *2 ( 8X .E16.8 )>  4860 

C  4870 

COMMON  /AAA/A (4000)  4880 

C  4890 

EQUIVALENCE  ( A<  1 1  .MM )  t  ( A(  2 )  »NN  I  *  I  A<  3  >-.  1M) t  ( A(4 )  *  IN) .  ( At  5  I  .NXYZ )  .  4900 

1 ( A(6 ) iKXYZ ) * ( A( 7 ) tNAUTO ) *(A(8)»NCROSS)»(A(9)»M)»(A(10)»N)  *  4910 

2(A(11)»LXYZ)»!A(12) tNCROST )  4920 

EQUIVALENCE  ( A( 21 ) .XL1 ) . ( A( 22 ) .XLO) ♦ ( A( 23 ) *YL1 ) * ( At 24) *YLO> »  4930 

1 1 At  25) *AI ) • I  At  26) »B) » t  At  27) »C) * ( At  28) .THETA) * ( A(29) *P2 ) ♦ t  At  30) *P II  4940 

2.(A(31).X).(A(32).Y).(A(33).2).(A(34).EPS).(A(35) .NMAX) .  4950 

3 ( At  36) »WMN) * <  At  37 ) .AMN) • ( At  38 ) .SUMl ) . ( At  39 ) »SUM2 ) •  4960 

4( At  40) * JA) 1 1 A (41 ) * JB )  4970 

EQUIVALENCE  (  At  101 )  .MAM)  .  ( At  151 )  .NAN) ',  ( Af  1001 )  *W)  *  ( At  2001 )  .DIX1)  *  4980 

1 tA(3001 ) .01X5 )  4990 

C  5000 

DIMENSION  MAM ( 50 ) .NANI 50 ).W(20.50).RP(110) .RPBAR 1 110) .PRPt 110).  5010 

lWA(llO).FKllO)  5020 

DIMENSION  XP(50).YPt50).ZPt50).DIXl(20.50).DIX5(20»50) .NORt 50 )  5030 

C  5040 

REAL  KMN  5050 

5060 
5070 
5080 

CONVT  *  60000.  5090 

C  5100 

C  5110 

DO  5  II-l.LXYZ  5120 

C  5130 

READ  (5.1000)  XX .YY . ZZ. MXP.TAU.DT AU.NTAU.EPS. NMAX. NWA  5140 

C  5150 

WR ITEt 6.2000 )  XX«YY.ZZ.MXP.TAU»DTAU.NTAU.EPS»NMAX»NKA  5160 

C  5170 


KJ  V 


TABLE  5A  (Continued) 


c  5180 

ATAU  »  TAU  5190 

C  5200 

READ  (5*1001)  (XPm*YPII)*ZPm.N0R(I)»  I-l.MXP)  5210 

WRIT£(6*2001 )  (XP(I)*YP(I)*ZP(t)*NOR(I),  I-l.MXP)  5220 

C  5230 

IF  (NWA)  8*1*8  5240 

8  READ  (5*1002)  (WA( K) »K'l *NWA)  5250 

WRITE(6*2010)  <WA(K)»K«1»NWA)  5260 

C  5270 

1  DO  10  JJ«1*MXP  5280 

C  5290 

DO  6  IA«1»NTAU  5300 

6  RP(IA)  >  0.  5310 

C  5320 

DO  7  IA»1,NWA  5330 

7  FKIA)  *  0.  5340 

C  5350 

DO  20  I*1«1M  5360 

DO  20  J«1*IN  5370 

JA  «  J  5380 

JB«J  5390 

IF  ( IM*EO*MM)  JA«I  5400 

M-MAM(JA)  5410 

N  ■  NANI J)  5420 

C  5430 

WMN  *  W( I  * J )  5440 

C  5450 

KMN  «  C*THETA  /  ( B*( l.+W( I  * J) *»2*THETA**2 ) )  5460 

AMN  «  B*W(I»J)  5470 

CMN  ■  W(I*J)#(1*-6.*B**2  ♦  B#*4)  5480 

DMN  «  4«*B*W(I»J)*(B**2-1«)  5490 

5500 
5510 

NRITE(6«2005)  5520 

IF  (JJ.NE.li  60  TO  21  5530 

C  5540 
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c 


c 


c 

c 


c 


c 


c 


x*xx 

y*yy 

z*zz 


PHASE  *1.5708 

XXX-1 

AMR  --AMS 

CAU  DTSTI AMN .PHASE  * XXX ) 

orxnr.j)  *  sum2 

PHASE  *  0. 

XXX*  5 

CAU  DINT ( ANN .PHA5E.XXX ) 
OIX5 1 1*  J)  *  SUM2 

AMR  ■  -AMN 


21  X*XP(JJ) 
Y*YP(JJ) 
2*2P(JJ) 


PHASE  *1.5708 
XXX  «  2 

CALL  DINT! AMN .PHASE. XXX) 
CAP2  *  SUM2 


PHASE  *  0. 

XXX  ■  4 

CALL  0INT(AMN.PHASE,XXX> 

CAPA  *  SUM2 


tF  (JJ.NE.l)  GO  TO  24 

WBARl-(84*2+2.  »  /te*WU.v!)*(B*#2+4.  > ) 

WBAR2  *  8*W8AR1  /  IB **2+2.  ) 

CBAR  *  XMN*WI I  * J) *P2 

SP  -  CBAR  *  (W8AR 1*01X1 ( I . J)*CAP2  +  WBAR2*D!Xlf 1 0Jt*CAP4 


-WBAR2* 


5550 

5360 

3370 

5560 

5590 

5600 

5610 

3620 

5630 

5640 

5650 

5660 

5670 

5680 

5690 

5700 

5710 

3720 

5730 

3740 

5750 

5760 

5770 

3780 

5790 

5800 

5810 

5820 

5830 

3640 

5850 

3660 

5870 

5680 

3890 

5900 

5910 


i 
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TABLE  5 A  (Continued) 


1D!X3( I *JI*CAP2  ♦  WBAR1*DIX3<I*J)*CAP*  3920 

IF  (SP)  28*28*22  5930 

28  PH!  ■  0*  39*0 

GO  TO  23  3950 

22  PHI  «  10«*  ALOGiO(SP)  ♦  127*6  3960 

23  WR ITE( 6*2002 )  1 1  »JJ*XP(  JJ)  *  YP  ( JJ )  *ZP(  JJ )  *M,N»W(  lW>  *SP*PHI  3970 

GO  TO  25  5980 

2*  WRITE! 6*2003 )  1 1  * JJ*XPt JJ) * YP ( JJ) *2P( JJ) >M*N*W( 1 » J)  3990 

25  IF  (NTAU)  39*31*39  6000 

39  TAU  «  ATAU  6010 

C  6020 

DO  30  K-1*NTAU  6030 

C  60*0 

TH1  «  CMMCOSIWI I*J)«TAU»  *  DMN  •  SINIWI I *J)*TAUt  6050 

TH2"CMN*SIN(W( 1  * J ) *TAU ) -DMN*COS ( WU  *  J)  *T  AU )  6060 

C  6070 

RPN«KMN*EXPI“A*!N*TAUI*(TH1*DIX1C I*J»*CAP2+TH2*DIX1< I  * J )*CAP*-TH2*  6080 

IDIXSI I *J)*CAP2  +  THl*DtX5(I*J)*CAP*)  6090 

RP(K)»RP(K)+RPN  6100 

C  6110 

WRITE<6*2004>  K*TAU»RPN  6120 

C  6130 

30  TAU  ■  TAU  +  OTAU  61*0 

C  6150 

31  IF  (NWA)  29*20*29  6160 

29  WRITE(6«2013)  6170 

C  6180 

DO  19  K>1»NWA  6190 

RAD  -  WA(K)/(2*«PIt  6200 

DD  ■  (B#*2*W(I*J)»«2  +  (W(I«J)-WAIxn**2>*  (B**2*W( I  * J>**2  ♦  6210 

1(W(I«J)  *  WAIK ) 1**2 )  6220 

C  6230 

AAMN  ■  (B*WI I »J)*(B**2*W( I *JI**2  +  W<I»J>**2  ♦  WA(K>**2>)  /  DD  62*0 

BBMN  ■  (W( I *J I*(B**2*W( I » Jl**2  +  WII*J)**2  -  WAIX)*#2))  /  DD  6250 

C  6260 

TW1  ■  CMM*AAMN  ♦  DMN*BBMN  6270 

TW2  •  CMH*BBMN  -  DMN*AAMN  6280 
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C  6290 

FIT  «  KMN  *  (TW1*DIX1U.J)*CAP2  ♦  TW2*D  I X 1 1  I  *J)*CAP4  -  TW2*DIX5(It  6300 

1JI*CAP2  ♦  TW1*DIX5(I*J)*CAP4)  6310 

C  6320 

FAT  ■  FIT  6330 

IF  I  FIT  1  71.71*17  6340 

71  PHI  *  0,  6350 

FIT  »  0.  6360 

GO  TO  18  6370 

17  PHI  *  10«*AL0G10 (FIT)  127.6  6380 

18  WRITE<6*2014)  K.WA ( K ) .RAD.FAT *PH i  6390 

C  6400 

19  FI  ((C)  «  FI  CIO  ♦  FIT  6410 

C  6420 

20  CONTINUE  6430 

C  6440 

IF  INTAU)  47*45.47  6450 

47  WRITEI6.2007)  RP < 1 )  6460 

TAU  •  ATAU  6470 

C  6480 

DO  40  K-l.NTAU  6490 

RPBARIK ) »RP(K) /  RP(1)  6500 

PRP(K)  »  RPIKI/P2  6510 

C  6520 

WRITE(6«2008 )  K*  TAU*RPBARIX) *PRP|K)  6530 

40  TAU  ■  TAU  ♦  DTAU  6540 

C  6550 

45  IF  (NHAt  74*10*74  6560 

74  WRITEI6, 20111  6570 

C  6580 

DO  50  K«1*NWA  6590 

RAD  ■  WAIK) /( 2«*P1 )  6600 

IF  (FI  (KH  75*75.51  6610 

75  PHI  •  0.  6620 

GO  TO  50  6630 

C  6640 

51  PHI  ■  10.*  ALOGIO(FHKI)  ♦  127*6  6650 
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TABLE  5A  (Continued) 


50  WR ITE( 6*2012 )  K.WAIX ) *RAD*FI (X ) *PHI  6660 

C  6670 

C  6680 

10  CONTINUE  6690 

6700 

6710 

5  CONTINUE  6720 

6730 

6740 

6750 

RETURN  6760 

END  6770 

IBFTC  XDINT  6780 

SUBROUTINE  OINT  (SAMN*SPHASE»XXS)  6790 

6800 

6810 

DOUBLE  INTEGRATION  SUBROUTINE  6820 

6830 

6840 

COMMON  /AAA/A (4000)  6850 

6860 

EQUIVALENCE  ( A( 9 ) «M) *  I A( 10 » «N > *  I A! 21 ) *XL1 ) • I A! 22 ) *XL0 1  * ( A( 23) • YL1)  6870 
1 • ( A( 24) *YL0 1 • ( A( 34) *EPS) « ( A( 35 ) *NMAX) » ( A( 38  I »SUM1 1 »<  A( 39) »SUM2 )  6880 

6890 

6900 

DIMENSION  P!5).WW!5)  6910 

6920 

DATA  <P(I)»I»1*5)*(WW(I). 1*1*5)  /.4530B9923.-.453089923*. 26923465*  6930 

1*-* 269234655*0. 0.2*. 1 18463443*2**239314335 * *284444444  /  6940 

6950 

2000  FORMAT! 1H0.28H  *****  NO  CONVERGENCE  *****.5X* 14. 10X. I4*5X* 14* 15 *  6960 

12E18.8)  6970 

2002  FORMAT ( 1H0.33X. 14 *10X« 14 *4X» 1 5*I5*2E18»8)  6980 

6990 

7000 

7010 

NX-2  7020 


175 


V  u 


TABLE  5A  (Continued) 


BINC1«XL1-XL0  7030 

BINC2*Ytl-YL0  7040 

C  7050 

DO  25  X* 1 iNMAX  7060 

SUM1-SUM2  7070 

SUM2<040  7080 

CNX  •  NX  7090 

DINC1  =  BINC1/CNK  7100 

DINC2  =  BINC2/CNX  7110 

HI  «  XLO  ♦  D1NC1/2.  7120 

C  7130 

DO  26  I»1 iNX  7140 

H2  ■  YLO  ♦  DINC2/2.  7150 

C  7160 

DO  27  J«1.NX  7170 

DO  28  II«1*5  7180 

ABS1*DINC1*P( I  I •♦HI  7190 

DO  29  JJ«1«5  7200 

ABS2«DINC2*P< JJM-H2  7210 

29  SUM2»SUM2+WW( I  I )»WW( JJ)*FFF { ABS1 «AB$2  tSAMN tSPHASE 1  7220 

28  CONTINUE  7230 

27  H2-H2+DINC2  7240 

26  H1-H1+0INC1  7250 

SUM2«SUM2*DINC1*DINC2  7260 

C  7270 

C  7280 

IF  (K.EO.l)  GO  TO  30  7290 

IF  (ABSUSUM1-SUM21/SUM21-EPS)  31«31»30  7300 

30  NK-NK  +  1  7310 

25  CONTINUE  7320 

C  7330 

WRITE(6»2000 )  XXS»NX*M*N  »5UH2 »SUM1  7340 

5UM2  «  0.  7350 

C  7360 

GO  TO  32  7370 

7380 
7390 
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TABLE  5A  (Continued) 


31  NRIT£(6#2002)  KKSiNK  *M*N  *SUM2  »SUM1 

32  RETURN 
END 

SIBFTC  XFFF 

FUNCTION  FFF(XO»YO»FAMN*FPHAS£) 


double  intecration  FUNCTION 


COMMON  /AAA/A (4000) 


INTEGER  W»WMN 


RO*SQPT( (X-X0)**2+( Y-Y0)**2  +  2**2) 

CM  «  M 
CN  a  N 

PHX  *  SIN(CM*PI*X0/XL1 ) 

PHY  «  SIN(CN*PI*Y0/YL1) 

FFF  -  PHX  *  PHY  *  EXP ((FAMN /A 1)*R0)  *  SINf (WMN/AI )*R0+FPHASE)/  RO 

RETURN 

END 


7400 

7410 

7420 

7430 

7440 

7450 

7460 

7470 

7480 

7490 

7500 

7510 

7520 

7530 

7540 

7550 

7560 

7570 

7580 

7590 

7600 

7610 

7620 

7630 

7640 

7650 

7660 

7670 

7680 

7690 

7700 

7710 

7720 

7730 
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Table  5B  —  Clamped-Clamped  Boundaries 


SIBFTC  TURGEN 

C 

C 

1000  FORMAT ( 12A6 ) 

1001  FORMAT ( 1014 ) 

1002  FORMAT (4E12.6/5E15.8) 

1003  FORMAT ( 12F6.0 ) 

1004  FORMAT ( 2014 ) 

1005  FORMAT ( 5E15.8  ) 

C 

2000  FORMAT < 1H1 . 10X.6HF.P.S. • 15X .12A6/22X * 12A6//// ) 


2001  FORMAT  ( 1HO#29X*45HOROER  OF  M  (MODE  NUMBERS)  MM  ».I 

16/30X.45H0R0ER  OF  N  (MODE  NUMBERS)  .««•«. «••...»«  NN  *.I6/30X« 
245HNUMBER  OF  CASES  (XY2I  IN  AUTO  CORR...  NXY2  ■. I6/30X.45HNUMBER 
30F  CASES  ( XY2 )  IN  CROSS  CORR..  KXYZ  **I6  /  30X.43HAUTO  CO 


4RRELAT ION  CONSTANT  ..........  NAUTO  *• 1 6/30X.45HCR0SS  CORRELATION 


5CONSTANT  ..........  NCROSS  ■ . I6/30X »45HL IMITS  OF  THE  1-ST  INTEGRAL 

6  . . .  XL1  -.F11.4/30X.45H 


7  XLO  »»F11.4/30X»45HLIMITS  OF  THE  2-ND  INTEGRAL  V 


8L1  • .FI 1.4/30X.43H  YLO  «*F1 

91.4/30X.45HSREE0  OF  SOUND  IN  WATER  Al  «.F13.6/30X 


A.45HDAMPING  CONSTANT  B  «*F13.6/30X»45HC 

BCONSTANT . .  C  « .F13.6/30X.45HTEMPORAL  D 

CECAY  FACTOR  OF  TURBULENCE  THETA  ».F11.4/30X»43HR.M.S.  PRESSURE  . 
D. ............. .........  P2  *»rl3.6//30X»2I10) 

2002  FORMAT { 1H0.40X .35HUNDAMPED  NATURAL  FREQUENCIES  W(M.N)//( 10X.10F8.0 
X)  ) 

2003  FORMAT ( 1H0.50X. 12HM0DE  NUMBERS// (40X. 101 3 ) ) 

2005  FORMAT! 1H0.40X.35HNORMALIZED  EIGENFUNCTION  PARAMETERS  //I15X.5E18. 
18)  I 

2006  FORMAT! 1H0.29X .45HNUM8ER  OF  CASES  IN  CROSS  CORR.  iTIME)..  LXYZ«» 

1 I6/30X.45HCROSS  CORR.  (TIME)  CONSTANT  .........  NCR0ST«*I6// 

230X.2I 10) 

C 

c 

COMMON  /AAA/A (4000) 


10 
20 
0  30 
0  40 
0050 
0060 
0070 
0080 
90 

0100 

0110 

0120 

0130 

0140 

0150 

0160 

0170 

0180 

0190 

0200 

0210 

0220 

0230 

0240 

0250 

0260 

0270 

0280 

0290 

0300 

0310 

0320 

0330 

0340 

0350 

0360 
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TABLE  5B  (Continued) 


EQUIVALENCE  ( A(1 > *MM) *< A{2 ) *NN) * (A(3) »IM) »<A(4) *IN> »(A(5 ) *NXYZ ) *  0370 

1 ( A(6 )*KXYZ  ) * ( A( 7)  *NAUT0)  ♦  ( A  ( 8 )  *NCR05S  )*(A(9)*M)t(A(10)*N)  ,  0380 

2(A( 11) *LXYZ ) * ( A( 12) *NCROST  )  0390 

C  0400 

EQUIVALENCE  (A(21)*XL1)*(A(22)*XL0)*(A(23)*YL1)*(A(24) « YLO) *  0410 

1(A(25)*AI).(A(26)*8>»(A(27J*C1*(A(28)*THETA)*(A(29>»P2/»(A(30)*PI)  0420 

2*(A(31)*X)*(A(32)*Y)*(A(33)*Z)*(A(34)*EP5)*(A(35) »NMAX I  *  0430 

3* A (36)  »WMN)  *  ( A(  3  •’ )  *AMN)  *(A(38)  *$UM1)  »(A(39)  »SUM2)  0440 

C  0450 

EQUIVALENCE  ( A< 101 ) *MAM) * (A( 151 ) *NAN) •  ( A( 1001 ) »W>  0460 

C  0470 

EQUIVALENCE  ( A(201 ) *AMM) *( A(251) •  ANN ) ♦ ( A< 301 ) *BMM> » ( A< 331 ) *BNN) ♦  0480 

1 ( A(401 ) *CMM ) » ( A(451) *CNN ) • ( A( SOI ) *DMM ) • ( A( 551 ) »ONN ) » (A(601 ) *ALMM) *  0490 

2(A(651 ) »ALNN)  0500 

0510 
0520 

DIMENSION  TITLE<24>*W(20*50)«MAM(50)«NAN(50)  0530 

DIMENSION  AMM ( 50 ) * ANN <  50  >  *BMM( 50 ) f BNN ( 50 ) t CMM( 50 ) »CNN ( 50 ) »DMM ( 50 ) »  0540 
1DNN( 50) *ALMM( 50) *ALNN( 50 )  0550 

0560 

REAL  KMN  0570 

INTEGER  W  0580 

0590 
0600 
0610 

CALL  STARTR  0620 

IF  ACCUMULATOR  OVERFLOW  ♦  0630 

0640 

READ  AND  PRINT  TITl E  0650 

0660 

READ(5»1000)  (TITLE(1),!«1«24)  0670 

WRITEt 6*2000 )  < TITLE! I ) . I«1 *24)  0680 

0690 

READ  AND  PRINT  GENERAL  INPUT  CONSTANTS  0700 

0710 

READ  (5*1001)  MM»NN*IM*IN*NXYZ*KXYZ»LX72*NAUTO*NCROSS*NCROST  0720 

READ  (5*1002)  XL1«XL0«YL1*YL0*AI »B*C*THETA*P2  0730 
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TABLE  5B  (Continued) 


READ  (5.1003)  ((W(I.J).J-l.IN).l-l.IM)  0740 

READ  (5.1004)  (MAM ( I ) . I ■ 1 .MM)  .  I NANI  I ) . I  *  1 »NN )  0750 

C  0760 

WRITE! 6. 2001)  MM.NN.NXY2 .KXYZ .NAUTO.NCROSS.XL1.SLO.YLI . YLO.AI .8.  0770 

1C.THETA.P2  0780 

WRITEI6.2006)  LXYZ .NCROST *  I M. IN  0790 

WR ITE( 6 .2002 )  ( ( W( I .J ) . J»1 . IN ) • 1 «1 . IM )  0800 

WR !TE( 6.2003 )  (MAM ( I ) • I* 1 «MM) . ( NANI  I ) • 1-1 »NN )  0810 

0820 
0830 

PI-3. 14159  0840 

0850 

AUTO  CORRELATION  0860 

0870 

IF  (NAUTO)  13.3*13  0880 

0890 

13  READ  (5.1005)  < ALMM( I ) *AMM( I ) *BMM( I ) *CHM( I ) *DMM( I ) * I-l .MM) *  0900 

1 ( ALNNI I ) .ANN ( I ) »BNN( I ) .CNN  1 1 1 *0NN( I ) .I»1.NN)  0910 

WRITE! 6.2005)  ( ALMM { 1 ) . AMM ( I ) *BMM( I ) .CMM( I ) .0MM( I ) .1-1. MM) .  0920 

1  ( ALNNI  I )  .ANN  ( I '»  .BNN  ( I )  .CNN  (I)  .ONNll )  .  I « 1  .NN )  0930 

0940 

CALL  AUTOl  0950 

0960 

CROSS  CORRELATION  (SPACE)  0970 

0980 

3  IF  ( NCROSS )  10.6.10  0990 

10  IF  ( NAUTO. EO.  1)  GO  TO  5  1000 

1010 

READ  (5.1005)  ( ALMM! I ) * AMMI I ) *8MM( I ) *CMM( I ) »DMM( I  1*1-1* MM).  1020 

1( ALNNI I ) .ANN ( I ) *BNN( I ) *CNN( 1 ) »DNN( I ) .I-l.NN)  1030 

WRITEI6.2005)  ( ALMMI I ) . AMMI I ) .BMMfl I .CMMII ) .DMM( I ) . I-l .MM) .  1040 

l(ALNN(I).ANN(I).BNN(l).CNN(I>.DNN(lt»I-l»NN>  1050 

1060 

5  CALL  C ROSSI  1070 

1080 
1090 

CROSS  CORRELATION  (TIME)  1100 
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c 

6  IF  ( NCROST )  18*8*18 

18  IF  ( (NAuTO»EO* 1 ) «0R* ( NCRQSS«EQ> 1 ) )  GO  TO  7 

READ  (5*1005)  ( ALMM< I) » AMM( I) *8MM< I) *CMMU ) «DMM( 1 ) • I«1 *MM) • 
1 ( ALNN (!)  * ANN (I) *8NN ( I > *CNN ( I ) * DNN ( I) » I  * 1 *NN > 

WRITE( 8*2005)  ( ALMMt I ) *  AMM ( 2 ) *BMM( I ) *CMM ( I ) *DMM1 I ) *l»l*MM) • 
1 ( ALNN( I ) *ANN( I ) «8NN(I ) «CNN( 1 ) *DNN( I ) « 1*1 «NN> 

C 

7  CALC  CR0SS2 
C 


8  STOP 
END 

SIBFTC  XAUTOl 

SUBROUTINE  AUTOl 


AUTO  CORRELATION)  X«XP  *  Y*YP  «  Z*ZP 


3000  FORMAT (5E12»6* 14 *E6*2 *214) 

3001  FORMAT ( 12F6*0 ) 

C 

4000  FORMAT( 1H1 ,50X * 16HAUTO  CORRELATION///30X*1HX*30X*1HY*30X*1H2// 

122X*E14,8»17X*E14.8»17X*E14.8//10X.5HTAU  «*E14.8*5X.6HDTAU  =**E14»8 
2*5X.6HNTAU  =. I4»5X.5HEPS  * *E14.8 *5X *6HNMAX  *.I4  *5X.5HNWA  =*I4  /) 

4002  FORMAT ( 1H1 * 8H  PNT  CNT* 12X* 1HX « 12X *1HY* 12X*1HZ. 12X * 1HM*4X • 1HN*5X* 

1  4HFREO,5X.21HM.S.  SPECTRAL  DENSITY*4X*20H  DB(RE«0002)  // 

2I6.10X.F9.4.4X*F9.4.4X*F9.4*I10*I5*3X*F6.0*5X.E16.8,6X.E16»8//// 
X-40X 

3  * 1HX  *8X , 3HTAU . 1 5X * 9HRPMN ( T AU )  // ) 

4003  FORMAT ( 1H  *30X. I10,E16.8*E20«8 ) 

4004  FORMAT ( 1H0*50X*12HINTEGRATI0NS  //  33X*9HINT.  NUM.*5X*  8H  MESH  t 

15X.6HM  N*10X*  4HSUM2.16X*  4HSUM1 ) 

4005  FORMAT ( 1H1 ,30X *44HN0RMAL I2ED  CORRELATION  OF  ACCOUSTIC  PRESSURE/// 


1110 

1120 

1130 

1140 

1150 

1160 

1170 

1180 

1190 

1200 

1210 

1220 

1230 

1240 

1250 

1260 

1270 

1280 

1290 

1300 

1310 

1320 

1330 

1340 

1350 

1360 

1370 

1380 

1390 

1400 

1410 

1420 

1430 

1440 

1450 

1460 

1470 
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110X.  4HNTAU* 10X •  3HTAU t 10X .25HNORM.  CORR.  OF  ACC*  PRES..10X.  1480 

28HRP ( K ) /P2 * 12X * 14HN0RM*  FACTOR  •♦E14.5//)  1490 

4006  FORMAT ( 1H  ,  8X .  14 »8X .F8. 6» 10X »E1 6.8 . 1 IX . E16.8 )  1500 

4007  FORMAT ( 1H1 *40X»40HT!M£  ELAPSED  IN  AUTO  CORRELATION  (MIN* > *F10*4 }  1510 

4010  FORMAT (1H1*7E16«8)  1520 

4011  FORMAT ( 1H1 * 30X «23HAUTO  SPECTRAL  DENSITY  ///12X.1HK.10X#  4HFREO*  1530 

110X*  7HRAD/SEC. 10X  1 17HCROSS  SPEC.  DENS. »10X»11HDB(RE.00021//I  1540 

4012  FORMAT ( 1H  *8X*I4*  8X. 16.BX »F9.4»2( 10X »E14«8 )  I  1550 

4013  FORMAT ( 1H0 *30X »18HCHOSEN  FREQUENCIES  //( 10X.10F10.0M  1560 

4014  FORMAT (1H1.30X.1HK. 1 OX < 4HFRE0 • 1 OX. 7HR AD/SEC  * 10X  * 17HMODAL  SPEC.  DEN  1570 

IS. »10X . 11HD8 ( RE. 000 2 )  //)  1380 

4015  FORMAT ( 1H  «21X . 1 10 .8X .F6.0.8X.F9.4. 2(8X.E16.8 J )  1590 

C  1600 

C  1610 

COMMON  /AAA/A ( 4000 )  1620 

C  1630 

EQUIVALENCE  (A(1).MM)*(A(2) iNN) *(A(3)*IM)»(A(4)«1N)»(A(5) .NXY2) *  1640 

1(A(6).KXYZ)»(A(7} .NAUTO) * ( A ( 8  I .NCROSS )»(A(9)»M)*(A(10)»N)  1650 

EQUIVALENCE  ( A( 21 ) .XL1 ) . ( A( 22 > »XL0) » ( A( 23 ) *YL1 » t ( A( 24) .YLOJ *  1660 

l(A(25)»Al)»(A(26).8).(A(27).C).tAt28).THETA).(A(29).P2).(A(30)<Pn  1670 

2<(A(31).X).(A(32)«Y)>(A(33).2)«(A(34)»EPS)»(A(35) *NMAX ) .  1680 

3 ( A( 36 ) *WMN ) . ( A( 37 ) .AMNJ • ( A ( 38 > »SUM1 ) i ( At  39 ) .SUM2) *  1690 

4(A(40).JA),tA(41)»JB)  1700 

EQUIVALENCE  ( At  101 ) .MAM I « ( A( 151 ) .NANI  * ( At  1001 ) *W)  1710 

C  1720 

DIMENSION  MAMt SO ) .NAN ( 50 ).W(20.50).RP(110> .RRBARt 110) .PRPt 1101  »  1730 

1WA (110). FI (110)  1740 

C  1750 

C  INTE.GER  W.WMN.WA  1760 

REAL  KMN  1770 

C  1780 

CONVT  «  60000.  1790 

1800 

CALL  CLOCK(MTIME)  1810 

1820 

DO  5  11*1 *NXYZ  1830 

C  1840 
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READ  (5*3000)  X*Y*Z*TAU*DTAU*NTAU*EPS*NMAX*NWA  1850 

C  1860 

WRITE(6*4000 )  X  * Y*Z  *TAU*DTAU*NTAU*EPS*NMAX  *NWA  1870 

C  1880 

IF  (NkfA)  11*1*11  1890 

C  1900 

11  READ  (5*3001)  ( WA ( K ) *K*1*NWA)  1910 

WR!TE(6«4013)  (WA(K) *K«1»NWA)  1920 

C  1930 

C  1940 

1  ATAU  »  TAU  1950 

C  1960 

DO  6  IA«1*NTAU  1970 

6  RP(IA)  «  0*  1980 

C  1990 

DO  7  IA*1*NM  2000 

7  FKIA)  «  0*  2010 

C  2020 

DO  10  1*1  * Im  2030 

DO  10  J*l* IN  2040 

JA  ■  J  2050 

JB*J  2060 

IF  ( IM#EO*MM)  JA* I  2070 

M*MAM( JA)  2080 

N  -  NAN(J)  2090 

C  2100 

WMN  *  W(I*J)  2110 

C  2120 

KMN  *  C*THETA  /  (8*( 1«+W( I ♦ J) **2*7HETA#*2 ) )  2130 

AMN  *  8#W( 1 • J )  2140 

CMN  *  W(I*J)«(1«-6.*B**2  ♦  B#*4)  2150 

DMN  «  4.*B*«IItJI*(B»*2-lil  2160 

C  2170 

WBARl*(B**2+2.)  /(B*W< I #J)*(B»*2+4« ) )  2180 

«AR2  *  B»WBAR1  /  <B**2+2*  )  2190 

CBAR  *  KMN*W( I  * J)*P2  2200 

C  2210 
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WRITEI6.4010)  KMN  *  AMN »CMN  »DMN  .WBAR1.WBAR2 .  CBAR  2220 

WRITE! 6.4004 )  2230 

C  2240 

C  2250 

PHASE-1. 5708  2260 

KKK»2  2270 

CALL  DINT  (AMN. PHASE  .KICK  I  2280 

CAP2«SUM2  2290 

C  2300 

KKK*  1  2310 

AMN*“AMN  2320 

CALL  DINT  (AMN. PHASE. KKK)  2330 

CAP1*SUM2  2340 

C  2350 

KKK*5  2360 

PHASE«0.  2370 

CALL  OlNT  (AMN. PHASE. KKK)  2380 

CAP5«SUM2  2390 

C  2400 

KKK*4  2410 

AMN—AMN  2420 

CALL  DINT  (AMN. PHASE. KICK  1  2430 

CAP4-SUM2  2440 

C  2450 

C  2460 

SP  «  CBAR*  <WBAR1»CAP1*CAP2  +  WBAR2*CAP1*CAP4  -  WBAR2*CAP5*CAP2  +  2470 

1WBAR 1*CAP5*CAP4  )  2480 

C  2490 

IF  (SP)  9.9.12  2500 

9  PHI  ■  0,  2510 

GO  TO  13  2520 

12  PHI  «  10.*  ALOGIO(SP)  ♦  127.6  2530 

C  2540 

C  2550 

C  2560 

13  WR I TE( 6.4002 )II.X.Y*Z»M»N»W(I*J)»5P»PHI  2570 

IF  (NTAU )  22.21.22  2580 
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22  TAU  •  ATAU  2590 

C  2600 

00  15  K«1«NTAU  2610 

C  2620 

TH1  *  CMN*C0$(W<  I  *J)*TAU)  +  OWN  *  SIN(W(  I  ,J)*TAU)  2630 

TH2«CMN#SIN(W(I*J)*TAU)-DMN*C0S<W( I*J)*TAU)  2640 

2650 
2660 

RPN*KMN*EXP ( -AMN*TAU)  *  (TH1*CAP1*CAP2  +  TH2*CAP1*CAP4  -  TH2  2670 

1*CAP5*CAP2  +  TH1*CAP5*CAP4)  2680 

RP(K)«RP(K)+RPN  2690 

C  2700 

WRITE(6,4003)  K*TAU»RPN  2710 

C  2720 

15  TAU  ■  TAU  +  DTAU  2730 

C  2740 

21  IF(NWA)  25*10*25  2750 

25  WRITF<6,4014)  2760 

C  2770 

DO  20  K«1,NWA  2780 

RAO  »  WA(K»/f2.*PI)  2790 

DD  »  (B*»2*W( I *JI*»2  +  (W< I*J)-WA(K)  )*«2I*  ( B**2*W( I » J >**2  +  2800 

1(W( ! *J)  +  WA<K>>#*2>  2810 

C  2820 

AAMN  «  (B*W( I *J)*(B**2*WI I *J)**2  +  W<I»J>**2  ♦  WAOO**2))  /  OD  2830 

BBMN  «  <W(!.JI*(B**2*W(I.J)**2  +  W<I*J)**2  -  WA(K)**2)1  /  DD  2840 

C  2850 

TW1  ■  CMN*AAMN  +  DMN*8BMN  2860 

TW2  «  CMN*BBMN  -  DMNMAMN  2870 

C  2880 

FIT  »  KMN  *  ( YW1*CAP1*CAP2  ♦  TW2*CAP1*CAP4  -  TW2*CAP5»CAP2  +  2890 

1TW1*CAP5«CAP4I  2900 

C  2910 

FAT  «  FIT  2920 

IF  (FIT!  19,19*17  2930 

19  PHI  »  0,  2940 

FIT  «  0,  2950 
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GO  TO  18  2960 

17  PHI  «  10. *AL0G10 ( FIT)  +  127.6  2970 

18  WRITE! 6*4015 1  K»WA(K)»RAD*FAT»PHl  2980 

C  2990 

20  FI  (1C  )  *  FI  (Kl  ♦  FIT  3000 

C  3010 

10  CONTINUE  3020 

C  3030 

IF  (NTAU)  62*51*52  3040 

C  3050 

52  WRITE(6.4005)  RP(11  3060 

C  3070 

DO  30  Kal.NTAU  3080 

RPBARIK )  »RP(K 1 /RP( 1 1  3090 

PRP(IC)  »  RPOU/P2  3100 

WRITE(6.4006)  K.AT AUtRPBAR (1C)  »PRP(K)  3110 

30  ATAU«ATAU+OTAU  3120 

3130 
3140 

51  IF  (NWA)  27.5.27  3150 

27  WRITE(6. 40111  3160 

3170 

DO  40  K«1.NWA  3180 

RAO  •  WA(K)/(2.*PI)  3190 

IF  (FI (K) t  45.45.41  3200 

45  PHI  ■  0,  3210 

GO  TO  40  3220 

3230 

41  PHI  *  10.*  ALOGIO(FKK)}  ♦  127.6  3240 

40  WRITE(6.4012)  K.WAI  1C  1  .RAO. FI  (1C  I  .PHI  3250 

5  CONTINUE  3260 

3270 

CALL  CLOCK (NT I HE)  3280 

TIME  ■  (NTIME-MTIMEJ/CONVT  3290 

3300 

WRITE16.4002J  TIME  3310 

3320 
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RETURN  3330 

END  33*0 

SlBFTC  XCROS1  3350 

SUBROUTINE  CROS51  3360 

3370 

3380 

3390 

CROSS  CORRELATION)  TIME  «  CONSTANT  3400 

3410 

3420 

3430 

1000  FORMAT !3E12«6*2!6*£12*6«I6/!6E12»8))  3440 

1001  FORMAT! 2( 3£12*6# 14 ) )  3450 

3460 

2000  FORMAT ! 1H1 *50X » 17HCR0SS  CORRELATION///20X*1HX*20X*1HY*20X»1HZ*20X*  3470 

13HMXP#10X*4HMTAU*10X*  3HEPS*10X»  4HNMAX  //12X *E14.8 »2 ! 7X #E14»8 ) »  3480 

214X*  14 »9X* 14*  5X*E12#6*7X»I3//  5X«7HTAU< I) « »5E16«8//12x*5E16.8// )  3490 

2001  FORMAT! 1HO*30X*2HXP*20X»2HYP*20X.2HZP.10X*3HNOR//!23X*E14*8»8X»E14  3500 

1.8»8X#E14*8.5X»I3  ))  3510 

2002  FORMAT! 1H0*1HI  »4X*3HTAU.4X.  7HPNT  CNT«5X*2HXP*10X*2HYP»10X*2HZP*  3520 

110X*  6HM  N*4X*4HFREQ  <  5X.17HCROSS  SPEC*  DENS**5X*UHDB(RE«0002  3530 
2) *5X*  9HRPMN! TAU )// 12 *E1 1 *5* I4*E14«6*E12»6*E12*6*2X*2 15*2X*F6*0*  3540 

36X«E14.8*4X*2E14.8  )  3550 

2004  FORMAT (1H1»4X*1HI*8X»  3HTAU* 12X . 1HJ« 10X.5HXP! J) *9X*5KYP( J ) <  9X.  3560 

15HZP! J) *12X»11HCRPBAR( I«J) * 10X» 12HNORM*  FACTOR///  I6*5X»E10.5*  3570 

24X«I5»3X*3E14.6.E20.8#E22«8/!25X*15*3X*3E14.6*E20.8#E22#8>)  3580 

2005  FORMAT! 1H0.50X.12HINTEGRATIONS  //  33X»9HINT.  NUM«*5X.  8H  MESH  •  3590 

15X»6HM  N*10X*  4HSUM2* 16X •  4HSUM1 )  3600 

2010  FORMAT I1H1*7E16»8)  3610 

2100  FORMAT ! 1H1 *40X*41HTIME  ELAPSED  IN  CROSS  CORRELATION  !MIN. ) .F10.4)  3620 

3630 

3640 

COMMON  /AAA/A<4000)  3650 

C  3660 

EQUIVALENCE  < A! 1 ) .MM) , < A! 2 ) *NN ) . ! A! 3) . IM) * ! A (4) *  IN) * ( A! 5 ) .NXYZ ) ♦  3670 

1 ! A ! 6 ) »KXYZ It! A! 7) *NAuTO) * ! A! 8 1 tNCROSS) ♦ IA!9)»M)*IA!10)»N)  3680 

EQUIVALENCE  ! A! 21 ) .XL1 ) . ! A! 22 ) »XL0 ) * f A< 23 ) » YL1 ) * ! A! 24 ) »YL0) *  3690 
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1 ( A (25). A! ),<A(26> *8)*! At 27) »C).(A!28). THETA) ♦ ( A t 29 ) *P2 > * ! AI30) *P I )  3700 

2*(A!31)«X)*(A(32)*Y)*(A!33)»Z)*IA!34)*EPS)*!A!35)  *NMAX ) •  3710 

3 ( A i 36 ) .WMN ) . ( A ( 37 ) . AMN I  * ( A ( 38 ) *SUM1 ) . <  At  39 ) *SUM2 ) *  3720 

4 ( A ( 40) » JA ) • ( A ( 41 ) * JB )  3730 

EQUIVALENCE  I A( 101)  .MAH) ,  (At  151) .NAN ) , ( A (1001 ) *W > . < A! 2001 ) .Dl XI ) *  3740 

1 { AI3001 ) *DIX5 )  3750 

C  3760 

DIMENSION  TAV( 110)  *XP( 50) *YP(50)*ZP( 50) *NOR ISO) *MAM( 50 ) *  3770 

1NAN !SO)»W(20*50)*DIX1(20*50)*D1X5(20*50)  tCRPBAR ( 50 )  3780 

3790 

INTEGER  W*WMN  3800 

REAL  KHN  3810 

3820 

CALL  CLOCK (MT I ME )  3830 

3340 
3850 

CONVT  *  60000*  3860 

3870 
3880 

DO  5  I  1*1 *KXYZ  3890 

C  3900 

READ  (5tl000)XX*YY »ZZ*MXP#MTAV»£PS*NMAX* !TAV(I)»I*1 tMTAV)  3910 

WRITE! 6*2000 )XX*YY»ZZ*MXP*MTAV*EPS*NMAX* I TAVI I) *I*1»MTAV)  3920 

C  3930 

READ  !5*1001HXP(I)»YPm#2Pm*NORm#  1*1  »MXP)  3940 

WRITE! 6*2001 ) (XP( I ) «YP( I ) »ZP( I ) *NOR( I ) »  I«1»MXP>  3950 

C  3960 

DO  10  1*1*  MTAV  3970 

C  3980 

DO  20  J-l.MXP  3990 

CRP  •  0.  4000 

C  4010 

DO  30  K«1.!M  4020 

DO  30  L* 1 • IN  4030 

JA*L  4040 

JB*L  4050 

IF  (IM.EQ.MM)  JA*K  *060 
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M«MAM( JA)  4070 

N»NAN(L)  4060 

WMN«  W( K  *L )  4090 

C  4100 

KMN  »  C*THETA  /  ( B*< l.+W<K*L) **2*THETA**2 ) )  4110 

AMN  *  B*WIK»L)  4120 

CMN  *  W(K*L)*(1«-6.*B**2  *  B**4)  4130 

OMN  ■  4.*B*W(K*U*<8*»2-1«)  4140 

WBAR1* (B**2+2«  )  /  ( 8*W(K»L )* I  B**2+4» ) )  4150 

WBAR2*  B*  WBAR1  /  (B**2+2*»  4160 

CBAR  *  KMN  *  W( K  *L )  •  P2  4170 

C  4180 

WRITEI6.2010)  KMN* AMN *CMN*DMN *WBAR1 ,WBAR2 tCB^R  4190 

WRITE(6»2005)  4200 

C  4210 

IF  IJ.NE.l)  GO  TO  31  4220 

C  4230 

X«XX  4240 

Y*YY  4250 

Z-ZZ  4260 

C  4270 

PHASE  *1*5708  4280 

KKK*1  4290 

AMN  *-AMN  4300 

CALL  DINT{ AMN* PHASE *KKK)  4310 

DIX1 (K»L)  -  SUM2  4320 

C  4330 

PHASE  *  0*  4340 

KKK»  5  4350 

CALL  DINT!AMN»PHASE»KKK)  4360 

DIX5(K*L)  *  SUM2  4370 

C  4380 

AMN  •  -AMN  4390 

C  4400 

31  X-XP(J)  4410 

Y*YP(J)  4420 

Z-ZPU)  4430 


/ 
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C  4440 

PHASE  » 1 «  5708  4450 

KICK  «  2  4460 

CALL  DINT! AMN.PHASE.KKK)  4470 

CAP2  *  SUM 2  4430 

C  4490 

PHASE  *  0.  4300 

KKK  •  4  4510 

CALL  DtNT(AMN.PHASE.KKK)  4520 

CAP4  *  SUM2  4530 

C  4540 

SP  «  .5E*20  4350 

PH!  ■  .5E*20  4560 

C  4570 

IF  ( NOR ( J ) )  39.32.32  4580 

C  4590 

39  SP  ■  CBAR  *  I W8AR1*DIX1 ( K.L I *CAP2  ♦  WBAR2*D!X1 ( K.L >*CAP4  -WBAR2*  4600 

101X5 (K.L)*CAP2  ♦  WBAR1*01X51K.L)*CAP4  1  4610 

C  4620 

IF  (SP)  38.38.33  4630 

C  4640 

38  PH I  ■  0.  4650 

GO  TO  32  4660 

C  4670 

33  PHI  ■  10. *  ALOGIO(SP)  ♦  127.6  46B0 

C  4690 

32  TH1  -  CMN»COS(W(K.L)»TAV( 1 ) )  *  DMN*SIN(W(K.L)*TAVU 1)  6700 

TH2  «  CMN*SIN(W(K.L)*TAV(  I)  I  -  DMN*COS(W(K.L)*TAVU) )  6710 

C  6720 

RPN  »  KMN*EXP(-AMN*TAV(1) ) * ( TH1*D!X1 < K.L > *CAP2  4  TH2*DIX1 (K.L >*  6730 

1CAP4  -  TH2*D1 X5 ( K.L )*CAP2  ♦  TH1*01X5(K.L)*CAP6)  6740 

C  4750 

CRP  •  CRP  ♦  RPN  4760 

C  4770 

34  WRITE(6.2002)  I.TAV(1).J.XP(J).YP(J).ZP('J).M.N.W(K.L).SP.PHI .RPN  6780 

C  6790 

30  CONTINUE  6800 
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TABLE  5B  (Continued) 


c  4810 

IF  ( ( I+J) .EQ.2 I  CNORH  «CRP  4820 

CRPBAR(J)  -  CRP  /  CNORH  4830 

20  CONTINUE  4840 

C  4850 

WRITEI6.2004)  I *TAV( I ) * ( J*XP( J) . YP< J) »ZP(J ) .CRPBAR (J) .CNORH.  4860 

1J»1*HXP)  4870 

C  4880 

10  CONTINUE  4890 

C  4900 

5  CONTINUE  4910 

4920 

4930 

CALL  CLOCK (NT I HE)  4940 

TIHE  ■  (NT I HE  -HTIHE)/  CONVT  4950 

WRITE(6»2100)  TIHE  4960 

4970 

4980 

RETURN  4990 

END  5000 

IBFTC  XCROS2  5010 

SUBROUTINE  CR0SS2  5020 

5030 

5040 

5050 


CROSS  CORRELATION  (TIHE)  (AUTO  CORRELATION  INCLUDED  FOR  THE  FIRST  POINTJ5060 


507C 

1000  FORMAT (3E12.6. 13 .2E12.8* 13. E6 .2* 21 3)  5080 

1001  FORMAT( 2( 3E12.6. 14 ) )  5090 

1002  FORHAT ( 12F6.0 I  5100 

C  5110 

2000  FORHAT (1H1, SOX. 24HCROSS  CORRELATION  ( TIHE) ///30X. 1HX.30X. 1HY.30X.  5120 

11HZ.//4X.3E31.8///4X.  5HMXP  *.I4.4X.  5HTAU  -.E14.8.4X.  6HDTAU  ■»  5130 

2E14.8.4X,  6HNTAU  *.I4.4X.  3HEPS  “.E14.8.4X.  6HNHAX  ■.I4.4X.5HNWA  ■  5140 

3.14  /)  5150 

2001  FORHAT ( 1H0.30X.2HXP .20X.2HYP.20X.2HZP .10X.3HN0R// (23X.E14#8.8XcE14  5160 

1.8.8X.E14.8.SX.I3  ))  5170 


TABLE  5B  (Continued) 


2002  FORMAT ( 1H0 «  9HCASE  NUM. »SX ♦ 1 1HINTEG.  PNT . »  5X»2HXP • 10X .2HYP. 10X.  5180 

12H2P  •  10X »  6HM  N  *  5X  .4HFREQ  .5X.21HM.S.  SPECTRAL  DENStTY»5X*  5190 

21 1HDB( RE.0002 )//I5*10a:!5*  3X .3 ( 3X.F9.4 > .4X .215 .3X .F6.0.3X.2E20. 8  5200 

3////40X.1HK.8X.3HTAU.15X.  9HRPMN ( TAU 1 // )  5210 

2003  FORMAT ( 1H0  >  9HCASE  NUM. . 5X . 1 1HINTEG.  PNT..  5X.2HXP * 10X ,2HYP. 10X.  5220 

12HZP.1CX*  6HM  N.5X.4HFREQ  //I5.10X.I5.  3X «3( 3X »F9.4 1 .4X.2I 5 *3X*  5230 

216  ////40X.1HK.8X.3HTAU.15X.  9HRPMH ( T AU ) // >  5240 

2004  FORMAT ( 1H  .30X.110.E16.8.E20.8)  5250 

2005  FORMAT ( 1H1 .50X.12H INTEGRATIONS  //  33X.9H1NT.  NUM..5X.  8H  MESH  5260 

15X.6HM  N.lOXt  4HSUM2.16X.  4HSUM1 )  5270 

2007  FORMAT { 1H1 .30X.44HNORMAL IZED  CORRELATION  OF  ACCOUSTIC  PRESSURE///  5280 

110X.  4HNTAU.10X.  3HTAU.10X * 25HNORM.  CORR.  OF  ACC.  PRES. * 10X .  5290 

28HRP ( K ) /P2  » 12X  » 14HN0"M«  FACTOR  **E14.8//)  5300 

2008  FORMAT ( 1H  •  8X. I4.8X.F8. 6. 10X .E16.8 » 1 IX .£16.8 )  5310 

2009  FORMAT MH1.40X.40HT1ME  ELAPSED  IN  CROSS  CORR. (TIME)  (MIN. ) .F10.4)  5320 

2010  FORMAT  1 1H0. 30X . 18HCH0SEN  FREQUENCIES  //( 10X.10F10.0I)  3730 

2011  FORMAT ( 1H1 .30X.23HCR0SS  SPECTRAL  DENSITY  ///12X. 1HX.10X*  4HFRE0*  5340 

110X.  7HRAD/SEC.10X.17HCR0SS  SPEC.  DENS. . 10X .  11HDB t RE. 0002 1 // )  5350 

2012  FORMAT ( 1H  .8X.I4.  8X. I 6.8X • F9 .4.2 t 10X »E14.8 ))  5360 

2013  FORMAT ( 1H1 »30X *  1HK  * 10X.4HFRE0 #10X |7HRAD/SEC . 10X .17HM0DAL  SP^C.  DEN  5370 

1S..10X.11HDB(RE.0002)  //)  5380 

2014  FORMAT ( 1H  .21X . 1 10.8X.F6.0 *8X .F9.4.2 t 3X *E16.8) )  5390 

C  5400 

COMMON  /AAA/A (4000)  5410 

C  5420 

EQUIVALENCE  ( A( 1) »MM) »( A ( 2  > *NN) » (At  3) »IM) .( A( 41 • I N  > .( A ( 5 ) »NXYZ) »  5430 

1(A(6)*KXYZ)»(A(7) .NAUTO) . ( A ( 8 ) .NCROSS )i(A(9)»M)«(A(10)»N)  .  5440 

2 ( A( 11 ) tLXYZ ( » ( A( 12 ) .NCROST )  5450 

EQUIVALENCE  < A( 21 ) ,XL1 ) . ( A( 22) «XL0 ) . t A< 23 > .YL1 > . ( A{ 24) .YLO) .  5460 

l(A(25).Al)*(A(26).8)#(A(27)*C>*(A(28)*THETA)*(A(29)#P2)*(At30)»PI)  5470 

2.(A(31).X).(A(32).Y).(A(33) »Z ) . ( A( 34 ) .EPS ) ♦ ( A( 35 ) »NMAX ) #  5480 

3 ( A ( 36 ) »WMN ) . ( A( 37) »AMN) . ( A t  38 ) »SUM1 ) » ( A( 39 ) *SUM2 ) »  5490 

4 ( A ( 40 ) * JA ) » ( A ( 41 ) . JB )  5500 

EQUIVALENCE  ( A( 101 ). MAM). (A( 151) .NAN) *(A( 1001) *Vt)»(A( 2001 )*DIX1) *  5510 

1 ( A ( 3001 ) *DIX5  )  5520 

C  5530 

DIMENSION  MAM ( 50 ) .NAN (50)oW(20»50)»RP(110) .RPBARt 110) »PRP( 110) *  5540 
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TABLE  5B  (Continued) 


lWAdlOJ.FKUO)  5550 

DIMENSION  XP(50)»YP(50)*ZP(50).DIX1(20.50).DIX5(20»50).NOR(50)  5560 

5570 

INTEGER  W.WMN.WA  5580 

REAL  KMN  5550 

5600 

CALL  CLOCK (MTIME )  5610 

5620 
5630 

CONVT  =  60000.  5640 

5650 
5660 

DO  5  I I«1»LXYZ  5670 

5680 

READ  (5.1000)  XX.YY.ZZ.MXP.TAU.DTAUcNTAU.EPS.NMAX.NWA  5690 

5700 

WRITE(6.2000 )  XX. YY.ZZ.MXP.TAU.DTAU. NTAU.EPS. NMAX.NWA  5710 

5720 
5730 

ATAU  *  TAU  5740 

C  5750 

READ  (5.1001)  <XP(!>#YP<II#ZPm.N0R(I>.  I-l.MXP,  5760 

WRITE(6.2001 )  (XP(I)*YP(I).ZP(I).NOR(I),  I-l.MXP)  5770 

C  5780 

IF  ( NWA )  2.1.2  5790 

C  5800 

2  READ  (5.1002)  < WA( K ) «K»1 .NWA)  5810 

WRITE(6. 20101  (WA(K).K-l.NWA)  5820 

C  5830 

1  DO  10  JJ-l.MXP  5840 

C  5850 

DO  6  IA-1.NTAU  5860 

6  RP(IA)  «  0.  5870 

C  5880 

DO  7  IA.1.NWA  5890 

7  FI(IA)  *  0.  5900 

C  5910 
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TABLE  5B  (Continued) 


DO  20  I-l.IM  5920 

DO  20  J*1»IN  5930 

JA  «  J  59*0 

JB«J  5950 

IF  ( IM  >EO*MM)  JA«1  5960 

M*MAM( JAI  5970 

N  •  NANIJI  5960 

5990 

WMN  •  W(I«J)  6000 

6010 

KHN  »  C*THETA  /  ( B* ( l.+WI I  * J) **2*THETA**2 1)  6020 

AMN  «  B*W(I*J)  6030 

CMN  *  W< I.J)*(1»-6.»B**2  +  B***)  60*0 

DMN  *  A.*8*WU»J)*IB**2-1«>  6050 

6060 

6070 

WR!TE(6*2005)  6080 

IF  (JJ.NE.1I  GO  TO  21  6090 

6100 

X*XX  6110 

Y=YY  6120 

Z*ZZ  6130 

61*0 

PHASE  =1.5708  6150 

XKK«1  6160 

AMN  —AMN  6170 

CALL  DINT! AMN .PHASE «KKK)  6180 

DIXl(I.J)  «  SUM2  6190 

6200 

PHASE  =  0.  6210 

KICK*  5  6220 

CALL  DINT! AMN .PHASE • XXX )  6230 

DIX5II.J)  *  SUM2  62*0 

6250 

AMN  ■  -AMN  6260 

6270 

21  X«XP!JJ)  6280 
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TABLE  5B  (Continued) 


Y-YP(JJ)  6290 

Z-ZP(JJ)  6300 

C  6310 

PHASE  =1.5700  6320 

KKK  «  2  6330 

CAl.L  DINK AMN. PHASE. KKK )  6340 

CAP2  =  SUM 2  6350 

C  6360 

PHASE  *  0.  6370 

KKK  «  4  6380 

CALl.  DINK AMN .PHASE .KICK I  6390 

CAPA  *  SUM2  6400 

C  6410 

IE  (JJ.NE.l)  GO  TO  24  6420 

WBARl«(B**2+2«>  B*W( I * J)* i S**2+4» } )  6430 

WBAR2  *  B*WBAR1  /  (B**2+2»  )  6440 

CBAR  *  KMN*W( I * J)*P2  6450 

C  6460 

SP  ■  CBAR  *  IWBAR1*DIX1( I.J)*CAP2  +  WBAR2*DlXl( I. J)*CAP4  -WBAR2*  6470 

1DIX5I I.J)*CAP2  ♦  WBAR1*DIX5( I *J)*CAP4  )  6480 

IF  (SP)  11.11.22  6490 

11  PHI  *  0.  6500 

C  6510 

GO  TO  23  6520 

C  6530 

22  PHI  «  10.*  ALOGIO(SP)  ♦  127.6  6540 

C  6550 

23  WRITE(6.2002)  1 1 .JJ.XP(JJ) .YP(JJ) .ZPf JJ) .M.N.W< I .J) .SP. PHI  6560 

GO  TO  25  6570 

C  6580 

24  WR ITE( 6.2003 )  II.JJ.XP(JJ).YP(JJ).ZP(JJ)»M»N.W(I.J)  6590 

C  6600 

25  IF  (NTAu)  32.31.32  6610 

32  TAU  »  ATAU  6620 

C  6630 

DO  20  K-l.NTAU  6640 

C  6650 
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TABLE  5B  (Continued) 


t 

THl  *  CMN*COS!W( I*j)*TAU)  +  DMN  *  SIN<W!I • J)*TAU>  6660 

TH2*CMN#SIN!W< I*J)»TAU)-DMN*C05!Wt I»J)*TAU)  6670 

C  6660 

RPN*XMN*EXP!-AMN»TAUi»!THl*DIXlt I *J)*CAP2+TH2*DIX1 ( I *J>*CAP4-TH2*  6690 

10IX5(  I  » J)*CAP2  +  TH1*02X5< I*J)*CAP41  *  6700 

RP  (X  )=RP  !X  )*-RPN  6710 

C  6720 

WRITE! 6 #2004 )  X*TAU«RPN  6730 

C  6740 

30  TAU  *  TAU  +  DTAU  6750 

C  6760 

31  IF  ! ?»WA )  33*20*33  6770 

C  6780 

33  WRITE! 6*2013 )  6790 

C  6800 

00  19  X«1.NWA  6810 

RAO  *  WA(X)/(2.»PI  )  6820 

OD  «  !B**2*w( I*J)»*2  ♦  ( W ( I  * J )-WA!X ) }**2 )*  <B**2*W< I*JJ**2  +  6830 

1!W( I *J)  ♦  WA(K))*»2)  6840 

C  6850 

AAMN  «  !B*W! I  * J)* ( 8**2*W 1 1  * J) **2  +  W(I*J>*»2  +  WA(X)**2)I  /  OD  6860 

BBMN  *  IWII.J)*IB»*2*W!I.J)**2  +  W!I«J>**2  -  WA!X)**2>)  /  OD  6870 

C  6880 

TW1  *  CMN*AAMN  +  DMN*8BMN  6890 

TW2  «  CMN*8BMN  -  DMN*AAMN  6900 

C  6910 

FIT  *  XMN  *  t  TW1*DIX1 1 1 » J) *CAP2  +  TW2«DIXH  I  *J)*CAP4  -  TW2*DIX5! I.  6920 
1 J)*CAP2  +  TW1*0I X5  f I  * J) *CAP4 1  6930 

C  6940 

FAT  «  FIT  6950 

IF  I  FI T  )  77*77*17  6960 

77  PK’  *  0,  6970 

FIT  «  0,  6980 

GO  TO  18  6990 

17  PHI  »  10**ALOG10( FIT )  ♦  127*6  7000 

18  WRITE! 6*2014)  X*WA!X) »RAD*FAT*PHI  7010 

19  FKXI  *  FI  ( X )  +  FIT  7020 
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TABLE  5B  (Continued) 


20  CONTINUE  7030 

IF  (NTAU)  47*45*47  7040 

C  7050 

47  WR1T£(6*2007)  RP(1)  7060 

TAU  *  ATAU  7070 

C  7080 

00  40  K*1*NTAU  7090 

RPBAR(K)«RP(K ) /  RP  ( 1 )  7100 

PRP(K)  «  RP(K)/P2  7110 

C  7120 

WRITE! 6*2008 )  K*  TAU*RPBAR(K) *PRP(K)  7130 

40  TAU  *  TAU  +  0TAU  7140 

C  7150 

45  IF  (NWA)  49*10*49  7160 

49  WRITE(6.2011)  7170 

C  7180 

DO  50  K«1*NWA  7190 

RAO  «  WA(K)/(2.*PI)  7200 

IF  (FI(K))  53*53*51  7210 

53  PHI  *  0*  7220 

60  TO  50  7230 

c  7240 

51  PHI  «  10.*  ALOG10I FI (K) )  +  127.6  7250 

50  WRITE(6«2012)  K*WA (K) ,RAD*FI (K ) ,PKI  7."60 

7270 
7280 

10  CONTINUE  7290 

7300 
7310 

5  CONTINUE  7320 

7330 

CALL  CLOCK (NT I ME)  7340 

TIME  -  (NTIME-MTIMEI/CONVT  7350 

7360 

WRITE(6*2009)  TIME  737O 

7380 
7390 


RETURN 


TABLE  5B  (Continued) 


END  7*00 

S IBFTC  XfttKT  7410 

SUBROUTINE  DlNf  ( SAMN«5PHASE  *KKS )  7420 

C  7430 

C  7440 

C  DOUBLE  INTEGRATION  SUBROUTINE  7450 

C  7460 

C  7470 

COMMON  /AAA/A( 4000  )  f480 

C  7490 

EQUIVALENCE  < A<9) *M) » ( At  10 ) *M ) *  I  At  21 > *XL1 ) * < At  221 *XL0) ♦ ( At  23) *YLU  7500 

1 • ( At  24) * YLO  5»tA(34)*EPS)«tAt35) *NMAX ) • ( A( 38 ) »SUM1 ) * ( A( 39 ) *SUM2 )  7510 

C  7520 

C  7330 

DIMENSION  Pt‘J!»WW<5)  7540 

C  7550 

DATA  <PtI).I«l»S)*tWW<I) *I«1*5)  / *453 08992 3 *-*4530899c3*  *269234655  7560 

l*-«269234650 *0*0 *2**1 18463443 *2*. 2393 14335 *.284444444  /  7570 

C  7380 

2000  FORMAT ( lHCf J6H  *****  NO  CONVERGENCE  *****.5X. 14* 10X* I4*5X*I4* 15 •  7390 

12E18.8)  7600 

2002  FORMAT  ( IKOt  3SX«  I4*10X*!4  »4X  *I5*-I5*2E18.8)  7610 

C  7620 

C  7630 

C  7640 

NK*2  7650 

BINCl-XLl-XLO  7660 

8INC2«YLl“Yl.O  7670 

C  7680 

DO  25  7690 

SUM1-SUM2  7700 

SUMZ-O.O  7710 

CNK  •  NX  7720 

DINC1  «  SIHCI/CNa  7730 

DINC2  *  9S6C2/CNK  7740 

HI  «  XLO  ♦  DINC1/2.  7750 

C  7760 
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TABLE  5B  (Continued) 


00  26  1*1 «NK 

H2  «  YLO  +  DINC2/2. 

00  27  J*1,NK 
00  28  11*1 #5 
A8Sl*0rNCl*P(in+Hl 

00  29  JJ*1 *5 

A8S2*DINC2*P( JJ)+H2 

28  CoSr 1  n #WW ( ’ *FFF ‘  ABS 1 . ABS2 , S AMN , SPHASE ) 
27  H2*H2+0JNC2 
26  H1*H1+D|NC1 

SUM2*$UM2*DINC1*DINC2 

IF  (K«£Q*l )  GO  TO  30 

30  j^^^^SUMaJ-EPS)  31,31*30 

25  CONTINUE 

W'”IE(6‘2000)  KKS,HK,M*N«SUN2,SUH1 
SUM2  *  0* 

GO  TO  32 


31  WRITE! 6*2002 >  KKS«NK»M*N*5UM2,SUM1 

32  RETURN 
END 

IBFTC  XFFF 

FUNCTION  FFF(XO»YO,FAMN,FPHAS£) 


DOUBLE  INTEGRATION  FUNCTION 


7770 

7780 

7790 

7800 

7810 

7820 

7830 

7840 

7850 

7860 

7870 

7880 

7890 

7900 

7910 

7920 

7930 

7940 

7950 

7960 

7970 

7980 

7990 

8000 

8010 

8020 

8030 

8040 

8050 

8060 

8070 

808C 

8090 

8100 

8110 
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TABLE  5B  (Continued) 


COMMON  /AAA/A (4000 | 

EQUIVALENCE  ( A(7) tNAUTO) ♦ ( A( 8) *NCR05S ) * ( A( 9 ) »M) * ( A( 10 ) *N ) » 
1(A(21)»XL1)»(A(22) tXLO) » ( A( 23 ) « YL1 ) « <  A( 24) «YL0) ♦(A(25)«AI)* 
2(A(30)*PI)t(A(31>*X)*(A(32)*Y)*(Al33)*2)»{A(36) *WMN ) t ( A(40 ) ♦ JA) « 

3 ( A ( 4 1 ) * JB ) 

EQUIVALENCE  ( A(201 ) * AHM) ♦ ( A( 251 ) *  ANN > » ( A{ 301 ) »BMM) * ( A( 351 ) *BNN) ♦ 

1 ( A( 401 ) *CMH ) * ( A( 45 1 ) tCNN ) * ( A( 501 ) »DMM ) » ( A( 55 1 ) *DNN ) » ( A( 601 ) * ALMM ) ♦ 
2 ( A( 651 ) tALNN) 

DIMENSION  AMM ( 50 ) » ANN ( 50)»8MH(50) »BNN ( 50 ) tCMM(50) »CNN( 30) *DMM( 50 ) » 
1DNN ( SO ) * ALMM ( 50 ) . ALNN ( 50 ) 

INTEGER  W»WMN 


R0*SQRT<  <X-X0)**2-MY-Y0)**2  +  2**2) 

PHX  «  AMM( JA)*SINt ALMM( JA!*X0>+  BMH( JA)*COS(ALMM( JA)*XO)  ♦ 

1CMM ( JA ) *S I NH ( ALMM ( JA ) *XO )  ♦  0MM( JA)*COSH( ALMMt JA)*X0) 

PHY*  ANNI JB)*SIN'ALNN( JB)*Y0)+  BNN ( JB ) *COS ( ALNN ( JB ) *Y0 )  ♦ 
1CNH(JB)*SINH(ALNN(JB)*Y0)  +  DNN( JB)*COSH( ALNN( JB)*Y0) 

FEE  *  PHX  *  PHY  *  EXP{ ( FAMN/AI )*R0)  *  SIN( « kfMN/AI )*R0+FPHASE) /  RO 

RETURN 

END 
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APPENDIX  D 

UNDERWATER  SOUND  LABORATORY  PROGRAM  (STRAWDERMAN) 

APPENDIX  D1  -  MATHEMATICAL  ANALYSIS 
APPENDIX  D2  -  METHOD  FOR  DETERMINING  INPUT  DATA 
APPENDIX  D3  -  PROGRAM  IDENTIFICATION 
APPENDIX  D4  -  TEST  RUNS 
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NOTATION 


A 

Equal  to  0.75  x  10"  5  a2pjU$8* 

a 

Plato  and  acoustic  cavity  dimension  in  z-coordinate 
(longitudinal)  direction 

b 

Plate  and  acoustic  cavity  dimension  in  y-coordinate 
(lateral)  direction 

b  + 

Dimensionless  plate  and  acoustic  cavity  dimension 
defined  in  Equation  (D68) 

Arbitrary  constants 

c 

Speed  of  sound  in  acoustic  medium 

c + 

Dimensionless  speed  of  sound  defined  in  Equation  (D77) 

D 

Plate  flexural  rigidity 

D  + 

Dimensionless  plate  flexural  rigidity 

d 

Acoustic  cavity  dimension  in  z-coordinate  (depth) 
direction 

d+ 

Dimensionless  cavity  dimension  defined  in  Equation  (D77) 

El  1 

Denotes  ensemble  average 

?qrtt(xrx2>yvy2) 

Defined  by  Equation  (D51) 

f qrst ^ 

Defined  by  Equation  (D52) 

°ns 

Defined  subsequent  to  Equation  (D21b) 

0"+) 

Defined  by  Equation  (D72) 

G,kmn(XVX2>yi>y2 > 

Defined  by  Equation  (D54) 

9  jkmn  (31  >32 

Defined  by  Equation  (D55) 

H(x,x'  ,y,y'  ,aj) 

Complex  frequency  response  of  plate 

h(x,x'  ,y,y',6) 

Plate  displacement  response  to  a  unit  impulsive  force 

i 

Square  root  of  - 1 

n  jkmnqrst 

Defined  by  Equation  (D60) 

k 

Acoustic  wave  number  defined  in  Equation  (D33) 

kx 

Acoustic  wave  number  in  the  z-coordinate  direction 

k. 

J 

Acoustic  wave  number  in  the  y-coordinate  direction 

k,,k  (a>) 

'  Z/A- 

Acoustic  wave  number  in  the  z-coordinate  direction 
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4>  +  > 

lk 

M 

m,n,  etc. 

Pn 

p :  (^+) 
p< 

Pa 

Qaa(x  i  >x*yvyvzvz2 

tl't2^ 

Qpp(X1^2^1^2^) 

Q<f><f>(xi’x2>  yi>y2>  h>1 2) 
4 

4  (-+) 

r 

v 

77J  71 

r+ 

Saa(*l »*2»yi»y2 >V 
23’") 

Spp(^,ri,(o) 

^(*i>*2»yi»y2^) 

T  mn 

o+> 

t 

t' 

Vo 


Dimensionless  acoustic  wave  number  in  the  z-coordinate 
direction 

Dimensionless  fluid  mass  defined  by  Equation  (D68) 
Mode  numbers 

Defined  subsequent  to  Equation  (D21b) 

Defined  by  Equation  (D73) 

Turbulent  boundary  layer  wall  pressure 

Cavity  acoustic  pressure 

Cavity  acoustic  pressure  cross  correlation 

Plate  pressure  cross  correlation 
Plate  velocity  cross  correlation 
Defined  subsequent  to  Equation  (D21b) 

Defined  by  Equation  (D69) 

Effective  plate  damping  coefficient  per  unit  area 
Critical  plate  damping  coefficient  for  the  m-n th  mode 

Dimensionless  plate  damping  coefficient  defined  in 
Equation  (D68) 

Dimensionless  critical  plate  damping  coefficient  for 
the  m-nth  mode 

Cavity  acoustic  pressure  cross  spectral  density 

Turbulent  wall  pressure  cross  spectral  density 
Plate  velocity  cross  spectral  density 
Defined  subsequent  to  Equation  (D21b) 

Defined  by  Equation  (D74) 

Time  coordinate 

Time  at  which  impulsive  force  occurs 

Free  stream  velocity  of  flowing  fluid  in  ^-coordinate 
direction 
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Ve 

u+ 


V 

mnqs 

W 

mnqs 

tnnq  5'  • 

w 

xjt(“) 


y 


S,t 

S(w-O) 

8* 

5+ 

$(x  ,x',y,y',6) 

e 


Moan  convection  velocity  of  turbulent  boundary  layer 

Dimensionless  free  stream  velocity  defined  by  Equation  (D68) 
Defined  by  Equation  (D78) 

Acoustic  phase  velocity  vector 

Acoustic  phase  velocity  in  the  ar-coordinate  direction 

Acoustic  phase  velocity  in  the  y-coordinate  direction 
Acoustic  phase  velocity  in  the  3-coordinate  direction 
Defined  subsequent  to  Equation  (D21b) 

Defined  by  Equation  (D23) 

Defined  by  Equation  (D75) 

Plate  displacement  in  the  z-coordinate  direction 
Defined  by  Equation  (D40) 

Longitudinal  spacial  coordinate 

Dimensionless  longitudinal  spacial  coordinate  defined  by 
Equation  (D68) 

Lateral  spacial  coordinate 

Dimensionless  lateral  spacial  coordinate  defined  by 
Equation  (D68) 

Spacial  coordinate  normal  to  the  plate 

Dimensionless  spacial  coordinate  defined  by  Equation  (D77) 

A  dimensionless  constant 

Plate  normalized  natural  mode  shapes 

Kronecker  delta 
Dirac  delta  function 

Turbulent  boundary  layer  displacement  thickness 

Dimensionless  turbulent  boundary  layer  displacement 
thickness  defined  by  Equation  (D68) 

Plate  velocity  response  to  a  suit  inpulsive  force 

Relative  lateral  coordinate  (y-y') 

Relative  time  coordinate  (t  -  t') 
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p 

um 

€ 

Pf 

P% 

Pa 

T 


Phase  angle  defined  subsequent  to  Equation  (D21b) 

Effective  mass  of  plate  per  unit  area 

Phase  angle  defined  subsequent  to  Equation  (D21b) 

Relative  longitudinal  coordinate  ( x  -  x') 

Mass  density  of  flowing  fluid 

Time  average  mass  density  of  acoustic  medium 

Instantaneous  mass  density  of  acoustic  medium 
Time  difference  ( t2  -  (t) 

Turbulent  wall  pressure  spectral  density 
Dimensionless  turbulent  wall  pressure  spectral  density 


<p0  (xi  y,  <y )  or  <I>(a;+)  y+,<u+)  Plate  velocity  spectral  density 

^(,x+>y+  Dimensionless  plate  velocity  spectral  density 

*o(*>  *•.  <o  Jor^Ja;4',  y+,  Cavity  acoustic  pressure  spectral  density 

2+,V+) 

Dimensionless  cavity  acoustic  pressure  spectral  density 

Plate  velocity 
Acoustic  velocity  potential 
Radial  frequency 

cj+  Dimensionless  radial  frequency 

Natural  frequency  of  m-n  mode  of  plate 


<t> 

C 0 


CO 


mn 

+ 

mn 


X(») 

n 


Dimensionless  natural  frequency  of  m-n  mode  of  plate 

Bihar.nonic  operator 
Defined  by  Equation  (D53) 

Radial  frequency 
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APPENDIX  D1  -  MATHEMATICAL  ANALYSIS 


The  equations  for  the  plate  velocity  and  cavity  acoustic  pressure  spectral  densities 
and  cross  correlations  are  now  derived32  for  a  plate  (Figure  15)  subject  to  turbulence  exci¬ 
tation. 

The  differential  equation  governing  the  displacement  of  the  plate  due  to  turbulent 
boundary  layer  pressure  excitation  on  the  plate  surface  is 


dw  d2w 

Dv  w  +  r i — >  +  [i  t - 1  =  p,(x,y,  2) 

dt  dt2 


(Dl) 


Following  Dyer  (see  Appendix  A),  the  equation  for  the  free  undamped  plate 


4  d2w 

DV*  w  +  ft . - 1  *  0 

dt 2 


(D2) 


has  the  normal  mode  solution,  satisfying  the  simply  supported  edge  conditions  (Figure  15), 


given  by 


w(x,y,t)  -  amn(x,y)  sin  a>mnt 


(D3) 


where 


2  .  mny  nrrx 

amn^y) '  •— Tsln - sin  — 

/06 


a  a 


(D4) 


-•4[(?)‘  •(?)’] 


(D5) 


and 


f  f  amn(x’ y)  aqr(^y) dx  dy  -  smq  8nr 

J0  0 


(D0) 


The  solution  to  Equation  (Dl)  for  any  deterministic  pressure  is  then  assumed  to  be 


w 


(x,y,t)~  2  amn(*,y)Tmn(t) 


(DT) 


m  ss  1 
n  =  1 
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Substituting  Equation  (D7)  in  (Dl)  and  using  Equation  (D6),  we  find  Tmn(t)  must  satisfy 


d*T  .  dT 

1  mn  T  1  mn 

dt2  M  dt 


f  Vt(x,y,t)ama(x>y)dxdy  •  (D8) 

0  Jo 


For  later  use,  we  consider  the  following  two  cases. 

CASE  I:  Concentrated  load  applied  at  ( x'y ')  varying  sinusoidally  in  time 

Pt(*,y,t)-8(x-z')8(y-y')ei0it  (D9) 

Substituting  Equation  (D9)  in  (D8)  results  in  the  following  solution  for  Equation  (D7): 


-  amn(*>y)amn(x'y)  ifit  ,  £ol 

w(xfy,t)~  1  —p. - - - r-?,  -H(x,x',y,y',co)etat  (DIO) 


where  H(x,x',y,  y o> ),  the  complex  frequency  response,®2*  is 


1  ~  amn(*’y) 

H(x,x',y,y',a>)—  2  - - 

■::l 

CASE  II:  Inpulsive  loading  at  time  t '  applied  at  ( x ',  y') 


(Dll) 


Define 


pt(x,y,t)m  8(x-  x')  8(y-y')  8(t-  t') 


0  *  t  -  t' 


(D12) 


h(x,x\y,y',d) 


w(x,y,t)  6  >  0 

0  e  <0 


Substituting  Equation  (D12)  in  (D8)  results  in  the  following  solution  for  Equation  (D7): 


-re 

'in 


,  ,  ,  00  amnMamn(x'y)  _ /T  /  f  \2 

,y,y  ,0)  -  w(x,y,t)  - 2  - — r~i  si“V<n~(  V  ) 

^  m»l  l/\  /  r  \2  »  '4*' 


14>2 

r  mn  V  2#x 


2^/ 


e  e  >  o 


(D18) 


By  superposition,  the  response  for  any  deterministic  pressure  field  may  be  written 

t  p  b  pa 


w 


(x,y,t)  <*  f  f  f  Pt(x',y',t')h(x,x\y,y',6)  dx'dy'dt'< 
-00  •'0  •'0 


f  f  [  pt(x',y',t-d)h(x,x',y,y'6)  dx'  dy'  de  (D14) 

Jo  Jo  Jo 

Since  the  velocity  of  the  plate,  rather  than  displacement,  is  required  for  the  boundary 
value  in  the  acoustic  problem,  we  define  the  velocity  response  of  the  plate  to  impulse  loading 
thus 


C  (x,x',y,y',0) 


<JA(*,*',y,y',0)  e 


- re 

2p 


dt 


2  *- 


coa/!--fe) e  'S‘sin  &■-(£) 


e  >  o 


(D15) 


And  we  define  the  velocity  field  of  the  plate  as 


dw(s,y,t)  f”  f4,  f° 

<f,(x,y,t)=  - ^ j  j  Pt(x',y',t-e)8(x,x',y,y',e)  dx' dy' 


de 


(D16) 

We  define  the  turbulent  wall  pressure  cross  correlation  by  ( E  denotes  the  ensemble  average): 


®pp(*i»*2»yi  *^2*0"  ®  tpt(*i  »y,  ,t)pt(x2  (D17> 
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•The  plate  velocity  cross  correlation  is  then 


r  »  b  <•  a  <• b  -a  .00  <.» 

Q4>4>(xvxvyvyvtvtJ~  m  E  \  Jq  j  j  Jq  jo  Jq 


'Pj(*  i  ^j)  P  t(x2  ’  ^2’  ^2_  ^2  (*1  »  *1  >  3^1  ’  Vl  » 


<(*2»*2  d02d* 


;  ■*»,'  <&;] 


#•6  /*a  r 6  /* a  /•«>  #-oo 

I  j  J  I  1  1  ^pp^i ,a:2 »ypy2^i-0i »^2 “ ®2)^(*1>*J jy^yi »0i) 

•'0  •'o  *^0  *'0  *'0  •'0 


•  4(*2  »  *2  ’  Vi  ’  ?2  ’ 02  )  d0l  d02  *1  d:C2  d^2 

"Oo°r  lo  lo  J  J  QPP{lW’T+dl-d2)i{X 

<  (*2  ’  *2  ^2^2^d2^deid  6  2  *1  rf*2  ^2  (D18) 

In  obtaining  Equation  (D18),  we  took  account  of  the  fact  that  since  the  plate  velocity 
impulse  function  is  not  a  random  quantity,  the  ensemble  average  applied  only  to  the  turbulent 
pressure  field.  Also,  since  the  turbulent  boundary  layer  pressure  is  assumed  to  be  a  homo¬ 
geneous  stationary  process,  Qpp  is  a  function  of  the  difference  between  the  spatial  and 
temporal  coordinates  rather  than  the  coordinates  themselves33. 

The  plate  velocity  cross  spectral  density  is  then  (multiplying  and  dividing  Equation 
—  1(0  (&.  —  Or,  ) 

(D18)  by  e  1  1  to  obtain  the  third  member  below): 
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i  r 


W*i»*2»yi’y2»">“7=r  ,<ar*  = 

V  2rr  00 


>•6  /*a  pb  pa  -00  ^00  p  00 

J  J  J  J  [  j  7=J  QppitWir+e^oje 

•'0*^0  •'0  •'o  ^  0  *^0  v  2tt  —00 


-  I6>(r+0J  - 


i(x)6 . 


|  ‘Wl/  4 

4(r +0j-02  )>£(*,,  s^.y^'^)  e  C(*2 »  *2  »  yv  y2  >02> 


-  i<y<9„ 


dd2dx'x ,  ,rf*2  dy' 


r  ra  r°  ra  r°°  tod, 

«pp  (£',*',«)  £(^,*^,^0,)*  1  ^  • 
^0  Jo  Jo  Jo  Jo. 

I ' 


f°°  -  iw6L 

•I  £(*2  »  »2'>y2,  y2  ’  ^  e  dd2  dx\  dy  \  dx2  dy2 

J  0 


r°  r  6  ra 

~  <*2Spp(Z',i)\<*)H{xl,x[,yvy[-o>)H(x2,tt:'2,yvy2-o>)dx'l  dy[dx'2dy'2 

Jo  Jo  Jo  J  0 

(D19) 

where,  since  ^ (a?, a?',  y,  y <u)  is  zero  for  0  <  0,  the  semi-infinite  limits  in  $x  and  d2  have 
been  replaced  by  infinite  limits  and  as  can  be  shown  (see  Equation  2.11  of  Reference  33) 


x2,y2,y2,^2^ 


-  icod0 
e  * 


dd2  =  iu  H(x2,x2,  y2,y2-(o) 


x' ,yvy[,ei) 


e  dBx  =  -i<oH{xvx'1,y1  ,yx~o>) 


(D20) 
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The  mathematical  model  for  Spp  used  by  Strawderman  and  discussed  in  detail  in 


Reference  32  is* 


Spptf.*®) -0.75x10’ 


-5  2  Pf2 
=  1.5  x  10  5  a2  _L 


r-  v£-,r-  \ 

a Pf  u0 S*  e  e  \e  ;co  <  1-256  — 


r-o.usi— nr 

U*  UC 

-2-  e  e 

>*2  L  JL 


e  ;  a  >  1.256  — 

S* 


(D21a) 


where  a  «  1.0  for  water  and  a  *  3.0  for  air. 


Substituting  Equation  (D21a)  in  (D19)  and  using  Equations  (Dll)  and  (D4),  we  obtain 
after  extensive,  but  routine,  simplification  (see  Reference  32  for  details): 


^6  A<o* 

s4>4>  (*i;  x2 » ^t  'V-i)  *  s  s 


mnx1  nny1  qnx2  si;y2 

2  -  “  sin  — *  sin  ~~r~  sin  —  sin  — 

_  _  a  b  a  b 


pVo2  m.i9.|  TmnTn,PPRRn 

n*ls*l  mn  qs  n  s  m  q 


Gn*  Vmn»<  *>  «  <  1-256  - - 

ns  mnqs  «-  ^ 


m-nx  j  nnyl  qnx2  sny2 

.  o  .  .  !!  “  sin  ~ —  sin  >  -  -  sin  — — *  sin  - - 

32 AuP"  t <08*  \ 3  a  b  a  b 


32 Aco2  /<o8*\’3  00 

THiVu)  1 

ir  a^b*  \  uo  /  m  =  i  o  «  i 


n  =  1  5  «  1 


TmnTqsPnPsRmRq 


GnsVmnqs'  «>  1.256  — 


(D21b) 


•Equation  (D21a)  represents  a  mathematical  fit  to  the  Corcos  model  whichis  based  on  experimental  data. 
The  Skudryzk  and  Haddle  expression  for  the  turbulent  wall  pressure  spectral  density  <f>(0))  is  incorporated  in 
this  model.  See  Equation  (3. 1)  of  Reference  32. 
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where 


A  -  0.75  x  10~5  a2p2  V 03  5* 

'  2 

T’mn  "  /  (<4n  “  “  V  +  J  similarly  for  7^ 

(°*7  jj-J  +(t)  ;  similarly for  Ps 
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A  -  tan"  1  - - - ■;  similarly  for  A 

m  n  o  9  1 

“mn"" 

The  power  spectrum  of  the  plate  velocity  ^ <x,  y,  w)  is  found  as  follows.  First  let 

-  *2  -  yi  -  ya  •  y in  E(iuations  (D21b);  since  *(*■?’“>  must  be  a  rea1,  even  function 

then  the  summations  in  the  resultant  equations  must  be  real  if  they  are  to  be  considered  as 
valid  solutions  for  y, «).  Then  substitute  Vmnqs  from  Equation  (D21b)  in  the  equation 

for  4*^  (x,  y,u).  After  rearranging  this  equation  and  taking  Gns  -  G since  <?„,  is  a 

symmetrical  matrix,  we  find  (see  Reference  32  for  details): 

16  Ad  2 

*  s4>(xi  ^i»yi»yi*®)  *  *  2  2  2 


OO  OO 

oo  00 

1  2 

m  »  1  9  ■  1 

n  •  1  *  *  1 


mrrx  ,  nrry  J/r*  .  any 

sin - sin  sin  — —  sin  -7—  UQ 

a  b  a  —G  W  -,a><  1.256  — 

uni  mnqs  ’  -  R* 


T  T  P  P  R  R 

1  mn  1  qs  n  s  m  q 


\Acj2  /cu8*\  3  ~ 

a2b2  '  ^0  /  m  «  1 


32  Ao> 

..2 


9  =  1 
n  «  1  *  =•=  1 


mnx  nny  .  qnx  .  any 

sin - ►  sin  -—-j t  sin - sm 

a  0  a  0 

T  T  P  P  R  R 

lmn  lqsrnr  s  9 


un 


•,<d>  1.256  — 

ns  mnqs  1  g* 


(D22) 


where 


Wmnq,  “  i-0066  jj~  Smq  R m  003  (Vm  "  O'463*)  009  (kmn  ~  V> 


2 mqn2  ,  ..  .  ,  ,  .  (1  ,  m?ff2  [(-l)m(- 1)^-1] 

- *  cos  (vm  +  V  )  (cos  Amn  -  \ql)  +  (1  -  omq) 


[(=Ht)1 


+  [Rm  cos  (X9  t  xmn-  Xqs)  -  Rq  cos  iym  +  A,,  -  Amn)] 
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We  now  find  the  cavity  acoustic  pressure  due  to  an  arbitrary  plate  velocity  distri¬ 
bution.  From  this  we  will  obtain  the  cavity  acoustic  pressure  cross  correlation  and  spectral 
density. 

We  start  with  the  equations  governing  acoustic  phenomena  and  the  boundary  conditions 
for  Figure  12. 


Momentum  equation: 

du 

(D24) 

Continuity  equation: 

dp  q 

(D25) 

Equation  of  state: 

(D26) 

Boundary  conditions: 

ux(0,y,z,t )  -  0 

(D27a) 

ux(a,y,z,t)  =  0 

(D27b) 

uy(x,0,z,t)  m  o 

(D27c) 

uy(x,b,z,t)  *  0 

(D27d) 

uz(x,y,0,t)  -  0 

(D27e) 

uz(x,y,-d,t)  «  cf>(x,y,t) 

(D27f) 

Since  Equation  (D24)  was  derived  for  an  inviscid  fluid,  the  acoustic  field  may  be 
assumed  to  be  irrotational.  Hence  the  acoustic  phase  velocity  may  be  defined  in  terms  of 
the  velocity  potential 

u(x,y,z,t)  =yif/(x,y,z,t)  (D28) 


Equation  (D28  specifies  \fi  to  within  an  arbitrary  function  of  time.  To  uniquely  specify  t b 
define,  in  addition 

<¥(*>y,V)  _ 


p0(^y,^)  =  -pa 


(D29) 
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Substitution  of  Equations  (D28)  and  (D29)  into  (D24)  satisfies  the  latter  equation.  To  sat¬ 
isfy  Equations  (D25)  and  (D26),  we  proceed  as  follows: 

Substitute  Equation  (D26)  into  (D25)  to  obtain 

1  dVa 

^lF  +  Pao  V'““°  (D3°) 

Substitute  Equations  (D28)  and  (D29)  into  (D30)  to  obtain  the  scalar  wave  equation 

in  tfj 

«  1 

V2  - -*0  (D31) 

e2  dt2 

which,  by  virtue  of  the  separation  of  variables  technique,  has  the  solution 


if/ (x,y,z,t)  .  [Cj  sin  k  xx  +  C2  cos  kx  x]  [C3  sin  kyy+C4  cos  ky  yl 

[Cs  sin  k„  2  +  C6  kz  z]  C7  e  lket  (D32) 

where 

kx+ky+  kz  m  k 2  (D8S) 

Substituting  the  boundary  conditions,  Equations  (D27a-e),  into  Equation  (D32), 
using  Equation  (D28),  we  obtain 


Defining 


!  -  C3  -  C5  -  0 

(D34) 

jn  .  .  . 

—  7  -  integer 

(D35) 

a 

In 

—  £  .  integer 

(D36) 

<u  ■  k  C 

(D37) 

and  using  Equations  (D34),  (D35),  and  (D36),  we  have 


<P(x>y,z,t) 


~  )nx  Iny 

2  C„  cos  p— C.  cos —-C,.  cos  (A  z)C~eat 

/.o  f  £  6  */« 

£-0 


(D38a) 


Combininr  the  constants,  we  assume  that  the  solution  for  \f/(x,y,z,t)  has  the  form 
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~  jn  x  Z  v  y 

\j/(x,y,z,t)  ■  2  cos  >— cos  I — ' 

„  a  6 

/  =  o 
Z  *  o 


/"  >><“> 


cos  (&z  s)  e,<uc< -  (D38b) 

y'&T 


Equation  (D38b)  satisfies  the  wave  Equation  (D31)  at;  can  be  seen  by  substituting 
Equation  (D38b)  in  (D31).  Also,  by  applying  the  above  arguments,  Equations  (D27a-e)  are 
satisfied.  It  remains  only  to  satisfy  the  boundary  condition  (D27f),  u  z(x,y,-d,t)  =  c/>(x,y,t) 


_  #(»,y,s,f) 

dz 

Z  a— 

Hence 

00 

r  i«r*  e«ry  f 00  , 

.  r,  1 

2  cos. —  cos  . —  1  y.o(<y)  ■ 

■  n  a  6  J  il  ' 

/  *  0  — oo 

sm  [v*0] 

£  a  0 

/ 

>t  dco 

y'iT 


where 


~  jn  x  Zny 

i  cos  — *  cos  - - - 

j  -  o  a  b 

Z  **  o 


r\ 

— oo 


£(w)  e 


tcot 


do 

y&T 


X,t(»)  =  XSjl(o)Yjt(o)  sin  (*  d) 


(D39) 


(D40) 


jn  x  Zny 

Multiplying  both  sides  of  Equation  (D39)  by  cos  • —  cos  * —  and  integrating  over  the  area 

a  b 

of  the  plate,  we  find  by  virtue  of  the  orthogonality  principle  that* 


£(<u)  e 


lOt 


do 


Y$n  aJ(1  +  S0 ; 


—J «^tX£  ^ 


jn  x  Zny 

cos  —  cos  - 'dx  dy 

a  b 


(D41a) 


A  8in2  jn  2 n  sin  2 jn 

*By  L  Hopital’s  role,  lim  _  1  =  —  =  lf  hence  — . t=  §  .  Similarly  for  8no 

/•*  0  2/ fir  2tt  2/tt  * 
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Transformation  of  Equation  (D41a)  yields 


('tW  ‘  r  f  «*'**>  -a 


—  cos  .  e~la>t  dx  dy<——~ 

a  b  IS 

(D41b) 


Thus,  from  Equation  (D40) 


y.  p  (ct>)  =  — . —  ■  —  ■  - - ><  I 

a^(l  +  ^0/)(l +  so  E  )^i.o  sin  kz  dj_ 


*jt  *jl 


r  r 

J-ooJo  Jo 


jnx  iny  .  ,  dt 

<j>(x,y,t)  cos  —  cos  - e  dx  dy  — ■ . . 

a  6  ViT 


Substitution  of  Equation  (D42)  in  (D38b)  yields 


2  00  jnx  iny 

tfr(x,y,z,t)  a — p  2  cos  —cos  - 

n  ab  j  m  Q  a  b 


r>  cos  St* 

{l  +  Soj)(1  +  SoOkz.osinkt. 


a  *,•£ 


rr 


<f>(x,y,t)  cos  ~ -  cos  e_,<ut  dar  dy  d£  l  d&>  (D43) 
a  b  I 


Substitution  of  Equation  (D43)  in  (D29)  yields  the  cavity  acoustic  pressure  for  an 
arbitrary,  deterministic  plate  velocity 


°o  ~ 


”  jnx  l  ny 

i  cos  — —  cos  — — 


/*»  “COS*  8 

J-00  (l  +  S0,)(l  +  80£)*  sin*z 


IT  06  ;•  »  0  0 


a  zn 


mo 

*(*. 

5 


y,£)  cos  i—  cos  *— X  e-  d®  dy  d£  /  e“ *“*  d&> 
a  b  I 


(D44) 


If  now  cf>(x,y,t)  is  considered  to  be  the  only  random  quantity  in  p  a  ,  then  the  cavity 
acoustic  pressure  cross  correlation  is 
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Qaa(XVX2'yvy2'!lVZ2'tVt2)  =  E 1  P0  (*l  #1 ' 31  »*l  )  Pa(x2^2  >22>*2  ) 1 


n2a2b2  /-  0  r=0 

£  •  0  t  =  0 


*>  »  ;Vafj  £ff^j  r»r*2  irry2 

2  2  cos  - - cos  * -  cos  *— — 4  cos  - 

,  n  r  r-  n  a  b  a  b 


noo  ®  0  cos*  Sj  cos*lrt«2 

(1  +  S0/)(1  +  Sce)(l  +  S0r)(l  +  S0^2  (ft)sin*2. 

r*  j 

r «  /•  oo  rb  ra  rb  ra  r  -i  j 

I  E\^{xvylttl)^(xvy  2,t2)c°sH 

•/—oo  J  — oo  Jo  Jo  Jo  Jo  L  J 


dsinA,  d 

ii  zrt 


I  i**  i  rnx2 

)<f>(x2,y2,t2)  cos  - -  cos  * — <  cos  - - 


tny2  -tot,  -a t,  , 

*■£ —  e  e  dxx  dyx  dx2  dy2  dt 


.  to  t.  »'ft  t„ 
j  dt2  e  1  e  2 


In  Equation  (D45),  we  note  that  from  Equation  (D18) 


E[<f>(xv  yvtx)<t>{xvyvt2 )  ]-  Q..  (xvx2>yvy2  ,  r) 


(D45) 


(D46) 


Also,  since  r  ■  t, 
*  2  »rS(<D  +  ft) 


...  r  °°  -  »(iy + n  >  t, 

-  ,  then  using  Equation  (D19)  and  noting  that  |  e  1  dtx 

•'-oc 


n°°  .  .  „  -tot,  -XU. 

**2*1*2’ r>  e  e  dti  dt2 

“OO 

/*  00  /"  00  -  i(&>  +  ft ) 

^(*i»*2»yi»y2»r)  e~iQr  e  dh 

J  —  00  J— 00 

' ^(f>(p(xvx2,yi,y2'co)  f  e  d^i  =  (2n-) 2  S(f)(f){xl,x2,y1,y2,  ft)  5  (<u  + 

^  —00 


(D47) 
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Substituting  Equation  (D47)  in  (D45),  integrating  over  a>,  and  using  the  identity 
r  =  t2  -  yields 


Qaa(xvxvyvyvzvzvT) 


1 


)  -  0 
£  *  o 


00 

00 

1 

r  =  0 

t  =  0 


jrrx  t  tnyl  rnx 2  tny2 

cos  - *  cos -  cos  — —  cos  — 

a  b  a  b 


Ci2  cos  k,  „  cos  k,  a. 
_ zji  1  zrt  2 


(U80j)(l  +  80i)(l  +  S0r)(USQt)kiii(-a)kzJSl)  smkZji 


c?  sin  A  _  d 

zrt 


rb  ra  rb  ra  jnx1 

Jo  Jo  Jo  Jo  *2^1*2’°  >  C0S  T  C0S  T 


jrrx.  £  ffy.  nr*. 

cos  -  cos— — 

a  b 


dx j  dx2  dy2 


> 


«,ftr 


(D48a) 


where  from  Equations  (D33),  (D35),  (D36),  and  (D37) 


Hence 


*z/g  (")"**/£  (_<y) 

The  cavity  acoustic  pressure  cross  spectral  density  is 


(D48b) 


(D48c) 


^aa(Xl’S2  iyVyVZVZV^ 


Qaa(xvxvyvyvzvzi'T)e~i0T  dr 

(D49) 


Substitution  of  Equation  (D48a)  in  (D49)  with  given  by  Equation  (D21b)  yields 
(after  reassigning  the  subscripts  such  that;,A,m,n  apply  to  the  acoustics  problem  and  q,r,s 
and  t  to  the  plate) 
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Bp 2  00  00 


aQ 


Saa(xvx2,yvy2,zv?,2,co)-—~  2  2  Gjkna  (*1,*2,y1,y2) 


/. 


00  I  /»  00 


na?b^  j  m  o  m  ■  0 
A  *  0  n  *  0 

?/*m„(2l*32’n> 


— 00  I  —oo 


(l+S0/)(l+S0,)(l+50m)  d+S0n) 


X(Q) 


oo  00 

oo  00 

2  2 

9*1  s  *  1 

r  *  1  t  *  1 


f6  r  r6  r° 

Jo  Jo  Jo  Jo  ^ qrsMvx 2*^1^ 2^ qrsfl)  G /fcmn^l ’*2’^! ,y2^ 


rfajj  cfyj  <f*2  <fy2 


ei0rdn 


>  «-*®rdr 


8P02 


2  00  00  oo  oo 

oo  OO  00  00 


2  2  2  2 


Gjkmn(xVX2^Vy2) 


na2b 2  /  *  0  m*0  9*1  s*l  ^  +  ^OAHl  +  ^Om^  (^+^0n) 

A  *  0  «  =  0  r  *  1  t  *  1 


o:h;  F qrSMvXvyvy2)  Gjkmn(XVX2'y  1^2*  dxl  dV\  dx: 


2  dv2 


f*  oo 

J  ' 


where 


r 


<W2l>22>fl)*<n) 


e~  (OT  dr  (D50) 


qnx^  rny1  srrx2  tny2 

F qrslxvx2'yvy2^=  sin -  sin  ~7“*  sin -  sin  T- 

a  o  a 


(D51) 


ft)*  - -  ,  . 

9  St  T  (Sl)Tst{n)Pr(Q)Pt(Q)R  fft)ffs(ft) 


(D52) 
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l 


16Aft2 

H2a2b2 


X(Q)  =  < 


ft  <  1.256 


^0 


8* 


32A  a 2 
k  g2a2J2 


ft>  1.256 


Ho 

8* 


(D53) 


jnx  j 

Gjkmn(x\  ixvVvyJ  =  C0S  —  C0S  ~T  C0S 


2  n*y2 

-  COS  - 

a  5 


(D54) 


9jkmn(ZV2 2’ft)  * 


ft2  cos/:,  s,  cos  a 
*/fc  1  zmn 


k  (ft)/;  (il)  sin  A  dsinZ;  d 
jk  mn  zjk  mn 


(D55) 


Integration  over  frequency  ft  of  the  bracketed  term  in  the  right  member  of  Equation 
(D50)  results  in 


Vs  »/4..<w>  W'>  (D56) 

where 

1  a  00 

f(r)  «  - 1  F(o>)  eim  dco  (D57) 

yUn  J-oo 

Substitution  of  Equation  (D56)  in  (D50)  and  integration  over  r  yields  the  final  expres¬ 
sion  for  the  cavity  acoustic  cross  spectral  density: 


SOB(*i >iZ2,^l’^2,2l,32’CJ  ) 


. — -  i 

a2b2  /  *  o 


<M  oo  00 

00  00  oo 

111 

m  =  0  9=1  »  *  1 

n  =  0  r  «  1  r  «  1 


Gikmn(xVX2^Vy2^ikmn(sVZ2^)  X<a)  fqrsi <")* 
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1 


b  fa 


(1 +  80/)  (1  +  S0*>  <1+50 «)  (1  +  S0n>  Jo  Jo  Jo  Jo 


Fqrs&VXVy  1^2  ) 


ffl*m»(*l»*2»3'l»y2>  *1  ^1  *2  dy 2 


(D58) 


Integrating  over  the  spatial  coordinates,  using  Equations  (D51)  and  (D54),  we  obtain 
by  means  of  standard  integration  techniques 


- -  *(«)  2 

ff4  /  =  0 

4  =  0 


00  OO  00 

00  ©0  00 

EES 
m  =  0  9=1  s  =  1 

n  =  0  r  =  1  «  =  1 


Gjkmn(XVX2'y l»y2)  fyfcmn  (*l»*2»®)  K ,kmnqrst  (D59> 

where  G jkmn,g jkmn,f qrst,  and  ^(cu)  are  defined  in  Equations  (D54),  (D55),  (D52),  and  (D53), 
respectively,  and  where 


K 

jkirnqrst 


(1  “V  (l-5rt)(l-5sm)(l-5tn)fffa<  [l-(- 1)*(- 1)>]  [l-(-  l)r(- 1)*] 


(1  + V  d  +  so4>  (1  +  Som)  (l  +  so.)  (?2">2>  (r2-*2> 


(s2-m2)  (t2-n2) 


(D60) 


The  cavity  acoustic  pressure  spectral  density  obtained  from  Equation  (D58)  is 


16  p  ^ 

ao 

4>o(*i>yi  >*!»*>>  -  Saa(xvzvyl,yvs1,z1,co)-  *  —  ■■  X  (<o)  • 


00  00  00  00 

00  OC  OO  00 

1  S  X  Gjkm^XVXVyx^l)yjkmn^VZV<a)fqrSb)Kjkmnqrst 

j  *  0  m  -  o  9*1  s  =  1 

4*0  n  *  0  r«l  «  =  1 

(D6 1) 
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Sotting  Zj  -  xv  y t  -  y2  in  Equation  (D54)  and  3j  «  a2  in  Equation  (D55),  we  have 


G,kmn(xvxvyvyi) 


Gmn,k(XVXVyvyO  ~  Gjkmn(Xvyi) 


(D62) 


y,kmn(2VZV°>)  *  ?mn/Jfc(2l’2lW)  "  ?/*mn(2 !•“) 


(D63) 


Also 


K  -  K 

A  jkmnqrst  mnjkstqr 


(D64) 


Hence  using  (D52),  (D53),  (D62),  and  (D63)  in  Equation  (D61)  and  dropping  the  subscripts  on 
spatial  coordinates  ,  we  obtain 


256 Ap  „  co 
a0 


2  ,,2  oo  oo  oo  oo 

OO  OO  00  oo 


Gjkmn^y)yjkmnMGrH 

®“(*,y’2,")’  Jo  J.  ...  y.)r»ww*) 

A«0  n  «  0  r  =»  1  <  *  1 


V*(«) 5  -<  1-256  M 


512Apa2w2  «  ~  ~ 

.( —  J  2  2,  £  2 

;r4p20252  \G0  /  j  m  0  m  *  0  q  m  1  *  ■  1 


00  00  00  OO 


GjkmnMyjkmn(Z^)GrH 
TJco)  TJo>)  P»  P,  («)  «>)  «>) 


n  «  0  r  »  1  t  «  1 


ft. 


■*/*«,««  W>  a>  1,256 


(D65) 


As  for  the  case  of  the  plate  velocity  spectral  density,  the  cavity  acoustic  pressure 
spectral  density  must  be  a  real,  even  function  of  frequency.  Thus  by  substituting  Vqrst 

(as  given  below  Equation  (D21b))  in  Equation  (D65),  rearranging  Equation  (D65)  first  for  the 

Go  Vo 

frequency  range  <o  <  1.256  — * ,  (see  Reference  32  for  details)  and  then  for  <o  >  1.256  *—  , 

8*  8* 

and  using  Equations  (D62),  (D63),  and  (D64),  we  finally  obtain 


224 


I 


nro  4  2  2  ”°  oo  00  00 

256i4p  ^  oo  00  00  00 


®  (x,y,z,a>) 


Gjkm  n(X'y)9jkmn{Z^)Gn(°>) 


\2a2b2  /» 0  m-0  9-1  *=1  T^T^^P^P^R^R^eo) 


ff  ft 


k  *  0  n  =  0  r  =  1  t  —  1 


Wqrst(“)Kjkmnqrsf 


"o 

£t>  <  1.256  — * 

8* 


4>„(*iy>a><u)  =  *~ 


5i2^p2  w2  /  3  :  “  :  “ 

0  /a,SX  £-222 


Gjkmn(X’y)Cjkmn(Z’a)GrH 


^WW)  /  =  0  m.O  9=1  s  =  1 


A  =  0  n  =  0  r  =  l  1=1 


H' 


qrst^)  K jkmnqrst  >  1>256  g* 


(D66) 


For  practical  utility,  the  plate  velocities  and  cavity  acoustic  pressures  are  expressed 
in  nondimensional  form.  The  nondimensional  expressions  given  below  are  the  working  ex¬ 
pressions  used  in  the  computer  program. 

The  nondimensional  form  of  the  plate  spectral  velocity  is  defined  as 


<bi  (xty fw  + )  „o 

<D+  (*>+..*+)  -  -  =  4.38  x  10~4 M2S  +  w+  ■ 

*  '  a2Uea 


00  00  sin  mnx  sin  qnx 

00  30 

2  2  * - 

m  =  1  9—1 

n  =  1  s  =  1 


+  si*^**^  Of.  {»*)*+  &*) 

b+  b  + 


;  «  +  8+  <  1.932 


T*n^ +)  t*  (<0 +)  pr> +)p>  +> (^+)  «9+(-+> 


00  00 

3.2  x  10~  3  M2  8+  ~2  w  +_  5  2  2 

m =  1  9=1 

n  =  1  s  =  1 


sin  m77ar+ singes; +  sin — sin  — —  G+s  {<°  +  )W+nQS(o> +) 
b+ _ 6+ _ _ 

O  +)  r  +  («  +)  P>  +)  P>  +) «:  (» ■ + ) « 9+  (« ■ + ) 


;  w  +  8+  >  1.932 


(D67) 
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* 


where  the  dimensionless  input  parameters  and  spatial  and  frequency  variables  are  defined 
as  follows 


M 


Pfa 


x+  » 


V 


% 

V. 


+  y 

v  =— 

a 


$  + 


S* 


fc)0 


01  n 


ra 


rc  a 
mn 


2c omna 

m  n 


v. 


0+  = 


n  U2  a  2 


(D68) 


The  quantities  defined  below  Equation  (D21)  for  Rm  ,  Rq  ,vm,vq,  Amf| ,  Xqs,  Gns,  P„,  P  s,  7 
Tqs ,  and  Equation  (D23)  have  been  rewritten  in  dimensionless  terms  as  follows: 

«•  2T  2  .1  1/2 

{mn)2  -  0.987  <u  +  I  +  0.0  529a>  + 

0.23a>+2  I 
L(w(r)  2  -0.887w+J 


v  *  tan 
m 


(D69) 

(D70) 


«  tan' 

m  n 


,r  r+(o  + 


(D71) 


mn > 
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<?+„{*> +)»  0.35 o->+b  +  8mn  [2(0.7<u+i+)2  +  {mn)2  +  (nrr)2J 
'  [(-l)m(-l)n-l]  [l-5mn]  +  mnn2  jg-  [(-l)m  +  (- l)n]  «~0*7  ®+b+} 


p+  (<»+).  (mn)2  +  (0.7<u  +  i+) 


(r  +  2  i  2  r  +i 2  1/2 

f^mi »\  r+  %in 

(“)  "  " 

L  -I  L  cmn  -J 


(D78) 


(D74) 


»,/ta1.(«+)  -  1-00M"  +  5/m  cos  (Vf  -  0.463 w)  cos  (A/A-  Am„) 


2;W2  cos  („■  +  ./J  cos  (A/Jk  "  Amn)  +  (1  -  S/m) 


;mrr2  [(-l)'(-l)m-l] 


t ( i^)2  -  {mn)2] 


'[®/+  C0S  <?m  +  *jk  *  ***>  “«*  MS  (V/  +  Am„  -  A/Jfc)]  “/W 


2g  —  O.llSw 


.[(-  1)''  cor  (<u  +  +  v.+  um  +  A/fc  -  Am„)  +  (-  l)m  cos  (»  +  +  vf  +  +  Amn  -  A/fc)J 

(D75) 

The  nondimensional  /orro  of  the  cavity  acoustic  pressure  spectral  density  is  defined  as 


)a  7.008  xlO"3  .2  ,  . 
*2:  =  -■  — —  =  • — 7 — •  p+  M*s 

’  a2n2U2 


00  00  00  00 


/  =  o  m  rn  0  9*1  *  *  1 
ft  =  0  n  *  0  r  *  1  « •  1 


00  00  00  00  I  Grt  )^9r*f(Cl)  )Kjkmnqrst 

X  £  £  2  /  *— . — . . . —  - . - . 


+  > 
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cos 


cos  jnx  cos  mux  cos 


+  ^ny__ cos  ??y__ cos  2+  cog  £+  2+ 

h  1+  /*  mn 


r9>+)  r4>+)  p>+)  p>+)  *+  (*>+) 


;  «u+S+ <  1.932 


OO  OO  t»  00 


l:m  xiP-„-!p  +  Vg  +  ~  V  3  2  2  2  2 


/  *  0  m  *  0  9*1  4*1 
fe«0  n  =  0  r  =  1  t *  1 


^  jkmnqrst 


Ujkmn(“+) 


cos  ;‘fr*+  cos  mirx+  cos 


kny+  nny+  .  .  ,  +  + 

_  cos  cos  k+  2+  cos  z  + 

6+  6+  >k  mn 


T  +  (<o+)  7,>  +  )  ^>+)  P>  +  )  «+(*>+)  «>+) 


;  <a+5+  >  1.932 


(D76) 


Equation  (D76)  is  obtained  from  Equations  (D66),  (D69)  through  (D75),  and  the  follow¬ 
ing  definitions  for  the  dimensionless  input  parameters  and  spatial  variable: 


c 

% 


p  a 

P+  =  !“s_ 

V- 


d+  = 


X  2 

g+  =  u 
a 


(D77) 


which  are  used  to  form  the  following  dimensionless  quantities 


V"V[(7r)"(W ’'(£)] 


1/2 


Ufkmn(»+)  =  *t/fc  (“+)  *rmn  («' +)  sin  *  <*+  sin  *+*m/  +  (D78> 


/* 
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APPENDIX  D2  -  METHOD  FOR  DETERMINING  INPUT  DATA 


The  following  data  are  furnished  to  the  computer: 

1.  Dimensionless  input  parameters  to  determine  the  dimensionless  plate  velocity  sprectral 
density: 


M 


P 


U+  *  (See  Figure  4  of  Reference  32;  U+  was  taken  to  be  constant, 

e  equal  to  1.54  in  Reference  32.) 


a 


D+  « 


D 


The  values  for  the  data  used  in  determining  the  input  parameters  may  be  either  arbitrarily 
prescribed  or  measured  by  methods  similar  to  those  presented  in  Appendix  C.* 

X 

The  range  must  also  be  specified  for  the  special  and  frequency  variables  ar+  =•  —  , 


y  . 

,  and  <u "«  eaa/H 
a  c 


2.  Dimensionless  input  parameters  to  determine  the  dimensionless  cavity  acoustic  pres 
sure  spectral  density. 

In  addition  to  the  foregoing  parameters,  it  is  necessary  to  specify  the  following 
additions: 


c 

'll 


<Um„a  rc  °  20)  o 

i  1711%  1  77X7X  17X1%  ^  i 

•Additional  input  parameters  =  » - 1  and  rj"  =— — >  .  are  functions  of  D  and  b  only, 

mn  <4  ™  p<4  vc 


hence  need  not  be  independently  specified. 
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and  the  range  for  z+  «  —  . 

a 

The  values  for  these  data  are  either  known  from  the  geometry  and  properties  of  the 
actual  structure  and  fluid  or  are  arbitrarily  specified. 

Reference  32  gives  dimensionless  input  parameters  which  fall  in  the  range  of  interest 
for  submarine  sonar  applications. 
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APPENDIX  D3  -  PROGRAM  IDENTIFICATION 


This  program  computes  the  plate  velocity  power  spectrum  and  cavity  acoustic  pres¬ 
sure  power  spectrum  resulting  from  the  vibrations  of  a  turbulence  excited  finite  plate  with 
simply  supported  boundaries.  The  program  is  designated  as  TURB3.  It  consists  of  two  sub¬ 
programs,  I  and  II.  Subprogram  I  computes  the  plate  velocity  power  spectrum  and  Subprogram 
II  the  cavity  acoustic  pressure  power  spectrum.  Both  use  similar  notation.  There  are  slight 
differences  in  their  inputs  and  in  the  interpretation  of  their  output.  See  identification  below. 
A  time  estimate  of  the  computer  running  times  on  the  IBM  7090  is  given  below. 


Figure  No. 

Subprogram 

Frequency  Range 

Running  Time 
min 

16 

I 

1  £  6> +  <  1000 

9.13 

17 

I 

1  <  co  +  £  1000 

12.0 

18 

II 

1  <  <u+<  1500 

442.0 
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APPENDIX  D 

TABLE  6 

Identification  for  Subprograms  I  and  II  —  Strawderman 

This  table  include*  input  and  output  data  identification, 
flow  chart,  and  order  of  input  data.  Computer  running  times 
have  been  given  on  the  previous  page.  Computer  program 
listings  are  presented  in  Table  ?. 


TABLE  6A: 
TABLE  eB: 
TABLE  6C: 
TABLE  6D: 


Input  Data 
Output  Data 
Flow  Charts 
Input  Format 


2S2 


TABLE  6A 


Input  Data 

(Dimensionless  Units) 


Symbol 

Identification 

Program 

a=+ 

Dimensionless  longitudinal  spacial 
coordinate  x/a 

X 

y+ 

Dimensionless  lateral  spacial 
coordinate  y/a 

Y 

z  + 

Dimensionless  spatial  coordinate  z/a 

ZP 

b+ 

Dimensionless  plate  and  acoustic 
cavity  dimension  b/a 

BP 

d+ 

Dimensionless  cavity  dimension  d/a 
where  d  is  acoustic  cavity  dimension 
in  z-direction 

DEPTH 

r+ 

'v. 

Dimensionless  plate  damping 
coefficient  divided  by  dimension¬ 
less  critical  plate  damping  for  the 
m-nth  mode 

DAMP 

o>  + 

Dimensionless  radial  frequency 

OMEGA 

m 

Dimensionless  speed  of  sound 

CP 

D  + 

Dimensionless  plate  flexural  rigidity 

DP 

M 

Dimensionless  fluid  mass 

CAPM 

S  + 

Dimensionless  turbulent  boundary 
layer  displacement  thickness 

DELTA 

a 

Constant  mult,  factor;  changes  for 
different  fluids;  a  =  1.0  for  water 
a  =  3.0  for  air  (See  Interpretation 
of  Data  Output) 

ALFA 

Largest  frequency  of  interest,  i.e., 
cutoff  frequency  at  which  program 
is  to  stop 

TIP 

Convergence  criterion  in  Equation 
(D76)  with  TOLH  >  1.0  (Case  Ionly) 

TOLH 

Convergence  criterion  in  Equation 
(D76)  with  TOLL  <  1.0  (Case  Ionly) 

TOLL 

p+ 

Dimensionless  fluid  density  equal  to 
Pa0a/n 

RHO 
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TABLE  6B 


Output  Data 


Symbol 


Identification 


Program 


Modal  natural  frequencies 


PNOME  (I,J) 


A*>+) 


Subprogram  II:  Equation  (D76) 
Dimensionless  form  of  the  cavity 
acoustic  spectral  density.  NOTE: 
PHIP  was  multiplied  by  (p  +  )2  ■ 

.  2 


(¥)' 


to  agree  with  (D76);  see 

Interpretation  of  Data  Output  below 

10.0  LOG  e(PHIP)/2. 302589 

Corresponding  frequency  to  PHIP 
and  PHIDB 


PHIDB 

OMEGA 


Subprogram  I.  Equation  (D67) 
Dimensionless  plate  velocity 
spectral  density 

PHIP 

10.0  LOGe  (PHIP)/2. 3025859 

PHIDB 

Number  of  terms  needed  for  conver¬ 
gence  for  each  PHIP 

ITOP 

Subscript  indicating  how  many  times 
summation  gone  through  before 

MU 

convergence. 

Interpretation  of  Data  Output 

Comment:  Subprogram  I  involves  eight  nested  do-loops  which  means  that  the  inner  oper¬ 
ations  are  done  a  minimum  of  2  8  times;  the  next  index  on  the  loop  would  be  4 8 , 6  8  ,  .  .  . 
ate.  until  convergence.  Case  I  involves  only  four  nested  loops. 

Spacial  Instruction:  Sense  Switch  4  is  turned  on  by  operator  at  beginning  of  program. 
Curves  -  Three  Examples 

Example  1  (Figure  18):  Subprogram  I,  Equation  (D67)  is  used  for  this  curve.  The  com¬ 
puter  results  for  the  plate  velocity  spectrum  were  then  changed  to  dimensional  form  and  final 
ly  converted  to  the  ratio  of  displacement  spectral  density  to  turbulent  pressure  spectral 
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density.  The  subprogram  uses  Bull  data.  The  form  of  the  final  response  is  10  Log10 
[($rf(w)  /  <Pt(a)) )]  plotted  against  f.  The  following  conversions  were  made  manually. 

a.  Use  the  program  to  compute  <f>  \  (<u)  Equation  (D67)  multiplied  by  a  2 


10  Log  (<^(<»)  )  -  10  Log  (a2 <f>p(co)  )  = 

10  Log  (  Uea<f>£  (<u)  )  -  10  Log(a>2  <f> p(co)  )  = 

[10  Log  (Uca)  +  10  Log  (<^  (w)  )  -  10  Log  (<y2  4>p(a>)  )] 

[10  Log  ( Uca )  +  10  Log  (c u)  )  -  20  Log<u-  10  Log  <f>p(<o)]  . 

Plot  this  versus  /. 

As  an  alternative,  the  foregoing  results  may  be  obtained  by  a  simplified  procedure. 
This  option  eliminates  most  but  not  all  of  the  manual  computations. 
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For  subprogram  use,  the  Bull  data  are  nondimensionalized  (see  Figure  16).  Note  that 
for  this  frequency  range  in  the  figure,  the  value  of  (f>p  is  a  constant.  This  makes  the  correc¬ 
tion  simpler.  The  following  FORTRAN  lines,  in  which  the  constants  are  dependent  on  the 
Bull  data,  are  inserted  into  the  Strawderman  program  to  yield  direct  results  for  plotting  Fig¬ 
ure  16.  These  lines  are  inserted  immediately  after  Statement  212  in  the  program.  The  curve 
was  plotted  with  RESP  (PHISUBD/PH1SUBT)  against  FREQ.  It  should  be  noted  that  the 
curve  is  about  6  dB  lower  than  Strawderman’s,  since  he  originally  used  116  (an  arithmetic 
error  which  he  corrected  following  publication  of  Reference  32)  instead  of  110.392;  see  sub¬ 
routine  above. 

Col.  7 

PHIC=*PHIDB+1 10. 392 
OF=OMEGA*  190.986 
OFW-OF*6.2318 
WRITE(6,240)PHIC,OF,OFW 

240  FORMAT(lX,6HAPHIC=E17.8,6HAFREO-E17.8,lOHA20LOG(W)=E17.8) 
RESP-PHIC-OFW 

WRITE(6,241)RESP 

241  F0RMAT(1X,17HPHISUBD/PHISUBT«*E17.8) 

Example  2  (Figure  17):  Subprogram  I  is  used.  Computer  result  PHIDB  is  plotted  against 
OMEGA.  This  gives  representation  of  Equation  (D67)  directly,  i.e.,  PHIDB  represents  the 
dimensionless  plate  velocity  spectral  density  corresponding  to  values  of  w+. 

Example  3  (Figure  18):  Subprogram  I  is  used.  Computer  result  PHIDB  is  plotted  against 
OMEGA.  Note:  for  agreement  with  Equation  (D76)  (cavity  acoustic  spectral  density),  the 

resuit  PHIP  must  be  multiplied  by  (p+2)  =  ( p .  a  /  p)  2  or  20 Log  10p+  must  be  added  to 

0 

10.0 Loge  (PHIP)  /2. 302589  =  PHIDB.*  In  Figure  D4  the  convergence  criterion  was  a  toler¬ 
ance  of  20  percent,  with  TOLL  =  0.8  and  TOLH  =  1.2. 

It  is  important  to  note  that  the  original  subprograms  gave  the  following  results: 

a2^  (x+,  y  + ,  a>+)  and  a2  <I>*  (x  +  ,y+  ,z+]  <u+)  rather  than  <t>£(x+ ,  y  + ,  o> +  )  and  $>*(a :+,y+, 
3+  ,«+).  By  setting  a  =  1,  the  subprograms  have  now  been  modified  to  yield  the  normalized, 
results  4>^(a :  +  ,y+,w+)  and  <1 >^(«  +  ,y  +  ,3+,<u+).  The  mnormalized  results  (x*,  y+,<u+) 

-  a2  VcaQ>^  (x+,y+,  w+)  and  4>0(a?4', y+,  0+,<u+)  =  a2 p 2 f/c3 <I>*(:r+,  y+,  e  +,<u+ )  are  then  ob¬ 
tained  manually  for  water  (a  =  1)  or  air  (a  =  3),  i.e,  set  a  =  1  or  3,  accordingly. 

♦This  operation  w«s  performed  In  order  to  manually  compenaate  for  the  Inadvertent  omisaion  of  (p-1)2  from  the 

program.  Subsequent  to  the  computation  of  Figure  18,  the  program  was  corrected  to  include  (p+) 2.  Hence  manual 
compensation  is  no  longer  necessary  since  the  true  results  are  obtained  directly  from  the  computer. 
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Flow  Chart  for  Subprogram  I  -  Plate  Velocity  Power  Spectrum 


DO  714  J  - 1,  HOP 
DO  713  K  -  1,  ITOP 
DO  712  M  -  1,  ITOP 
DO  711  N  -  1,  ITOP 

CALCULATE  WJKMN 

PNUMjkhn  -  SNX(J)SNY(K)SNX(M)SNY(N)G(K,N)Wjkmn 
oenJKMN  -  T(J,K)T(M,N)P(K)P(N)CAPR(J)CAPR(M) 


SUM 


IT_0P  IT£P  PNUM 
J,K  M,N  DEN 


711 

712 

713 

714 


CONTINUE 


CONTINUE 

CONTINUE 

CONTINUE 
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Flow  Chart  for  Subprogram  II  -  Cavity  Acoustic  Pressure  Spectrum 


(  START  J 

nr 


READ  DATA  (DIMENSIONLESS) 
X,  Y,  BP,  DAMP,  ZP,  DEPTH, 
OMEGA,  CP,  DP,  CAPM,  DELTA, 
ALFA,  TIP,  TOLH,  TOLL,  RHO. 


CALCULATE:  CONSTANTS,  BOUNDARY 
CONDITIONS,  AND  NATURAL  FREQUENCY 
PNOME(U) 


STATEMENT  160 

INITIALIZE  VARIABLES,  ORDER  FREQUENCY, 
SET  LIMITS  ITOP,MU,  CALCULATE  ACRES(U) 


CALCULATE  Gjj(  Tjj(  Pj,  CAPRj, 


ARCTAN 


(, 


0.23&) 


+  2 


\i  2jt2  -  0.987  w+  2 


ARCTAN  I 


'2 -DAMP  -PNOMEjj  -OMEGA' 
<  PNOMEj?  -  OMEGA2  / 
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APPENDIX  D4  -  TEST  RUNS 


Results  obtained  from  the  computer  programs  of  Table  6  are  given  in  Figures  16-18. 

A  test  run  for  the  dimensionless  plate  velocity  spectral  density  <f>^  ( x+ ,  y+,  w  +  )  con¬ 
verted  to  the  ratio  of  displacement  spectral  density  to  turbulent  pressure  spectral  density 
(<p / (<j> f(u)  is  plotted  logarithmically  in  Figure  16.  Test  runs  for  the  plate  velocity 
power  spectrum  and  the  cavity  acoustic  pressure  power  spectrum  are  plotted  in  Figures  17 
and  18,  respectively.  Computer  listings  are  given  in  Table  7. 
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lOLOGlO^M/O.M)  (IN.2/PSI2 ) 


4 


(COMPARE  WITH  FIGURE  9 
OF  REFERENCE  32) 


d*  -  0.002(6 

<u*  (INITIAL  VALUE)  -  1.0 

c*  -c/(Jc-  cU*/U0 

D+  -  1.7  x  10-3 

M  r  0.099 

fi+  -  0.0491 

a  -3.0  (FOR  AIR) 


(  (H.) 

2l7 

Figure  16  -  Computed  Response  of  a  3.5  x  3.5  x  0.1-Inch  Steel  Plate  to 
Turbulent  Boundary  Layer  Excitation 
See  pages  56-57  of  Reference  32  for  source  of  data  used  here. 


U<»'0'E/l'lA>°*  OI00T  01 


(COMPARE  WITH  FIGURE  23 
OF  REFERENCE  32) 

b*  .  0  6667 
■r  -  0.3333 


w+(INITIAl  VALUE)  -  11.0 
e*  -  434 

D*  -  10.3 

U  .119 

6*  -  0.0231 


Figure  18  -  Computed  Dimensionless  Cavity  Acoustic  Pressure  Power  Spectrum 
at  Dimensionless  Cavity  Coordinates  (1/2,  1/3,  0) 

See  page  75  (Table  2,  Case  1)  of  Reference  32  for  source  of  data  used  here. 
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TABLE  7 


Computer  Listings  for  USL  Subprograms  I  and  II  -  Strawderman 

Table  7  A  —  Plate  Velocity  Power  Spectrum 


SI8FTC  STRTR2  0*  * 

DIMENSION  PNOME(20,20)«FREO(20.201*TMINO(20)tPHIFYI100)*SNX(20)»  0020 

15NY (20)»CSX(20)*C5Y(20)»G(20*20)»T(20t20)*P(20) *CAPR ( 20 1  0030 

DIMENSION  PNONDI 20*201 «GNU( 20 ) »PLDA ( 20*20)  0040 

DIMENSION  I  DUMP! 18 )  0  SO 

402  READ  (5*403)  X  *Y  »BP*DAMP *DEPTH*OMEGA*CP  *DP  *CAPM tDELTA*  0060 

1ALFA*TIP  70 

403  FORMAT (5F10*8/5F10*4/2F10»4)  0080 

406  0*0*0  90 

Pt«3*14159265  0100 

PISC«PI**2.0  0110 

E*2«71828183  0120 

IPEN«+80000  *130 

SINEX*SIN(PI*X)  0140 

COSEX  *  COS(PI*X)  0150 

SINEY  *  SINI (PI*Y) /BP)  0160 

COSEY  =  COSI (P I*Y ) /BP )  0170 

IF  ( ABSISINEX ) -10 *0**1 “7*0 ) I  800*B00*801  0180 

800  $INEX*0«0  0190 

801  IF  ( A8S( SINEY ) -10*0** (~7*0) 1802* 802*803  0200 

802  SINEY«0,0  0210 

803  IF  ( ABSI COSEX ) -10.0** (-7*0 )) 804  *804*805  0220 

804  COSEX-O.O  0230 

005  IF  I ABSI COSEY 1-10*0** I ~7.0) 1 806*806*807  0240 

806  COSEY*O,0  0250 

807  CONTINUE  0260 

SNXIll-SINEX  0270 

SNY< 1 ) *SINEY  0280 

CSX! 1 )*C0SEX  0290 

CSY( 1 1 *C05EY  0300 

DO  701  I»2*20  0310 

J«I-1  0320 

SNXI n«SNXIJ)*COSEX+CSX(J)*SINEX  0330 

SNYt  I ) *SNY ( J)*COSEY+CSY( J)*SINEY  0340 

CSX! I )*CSX( J) »COSEX“SNX( J)*SINEX  0350 

CSYI n«CSY(J)*COSEY-SNY( J)*SINEY  0360 

IF  (ABSISNYII) )-10.0**(-7.0) )  80*80i81  0370 
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TABLE  7A  (Continued) 


80  SNY!I)=0.0  0380 

81  IF  <ABS!5NX(I))-10.0#*(-7«0>)82*62«83  0390 

82  SNX( I )=0*0  0400 

83  IF  <ABS!C5Y(I))-10.0##<-7*0))84»84*85  0410 

84  CSY! I ) =0*0  0420 

85  IF  (ABSfCSX(I) )-10.0*#< -7*0 ) )86*86*87  0430 

86  CSX( I ) =0*0  0440 

87  CONTINUE  0450 

701  CONTINUE  0460 

WRITE! 6»7 )  0470 

7  FORMAT! 1H1/26HW.  STRAWDERMAN  JOB  NO  0775)  0480 

DO  100  1*1 • 20  0490 

DO  101  J*1.20  0500 

F* 1  0510 

H=J  0520 

PNOME!  I  *J)*(DP**0.5  )■*!  <  !F*PI )  **2 .0 ) +  ! <H*PI /BP )**2. 0 ) )  0530 

101  CONTINUE  0540 

100  CONTINUE  0550 

CALL  SSWTCH(4*K000FX )  0560 

IF! KOOOFX*EQ*  2  )  GO  TO  521  0570 

520  WR ITE!  6*522 )X  t Y*BP  *DAMP*D£PTH*OMEGA»CP*DP*CAPM*  DELT  A  «  0580 

1ALFA»TIP  590 

522  FORMAT (5F10*8/5F10.4/2F10*4)  0600 

521  CONTINUE  „  0610 

WRITE! 6 *1421! <PNOME(I*J) * J= 1 ♦ 10 ) » 1  =  1  *  10)  0620 

142  FORMAT! 10E12. 4)  0630 

160  DO  106  K*1 *20  0640 

DO  107  L*1 *20  0650 

FREQIK«L)*0.0  0660 

107  CONTINUE  0670 

106  CONTINUE  0680 

DO  102  1*1*20  0690 

DO  103  J*1 *20  0700 

IF!OMEGA-PNOME! I. J) 1104*103*103  0710 

104  K* I  0720 

L«J  -730 

FREQ(K.L)*PNOMEIK»L)  0740 
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TABLE  7A  (Continued) 


GO  TO  102 
103  CONTINUE 
102  CONTINUE 

DO  700  1*1  •  20 
TMINOI I)«0.0 
700  CONTINUE 
M=0 

DO  109  IM»20 
DO  108  J« 1 *20 
IF (FREQ ( I. J)) 99 *110*111 

111  M-M+l 

TMlNO(M)»FREO< I*J) 

110  CONTINUE 

108  CONTINUE 

109  CONTINUE 
S* TMINOI 1 ) 

DO  112  L*1 1 19 

IFIS-TMINOIL+l) 1112*121.121 
121  S-TMINOIL+l) 

112  CONTINUE 

DO  130  L*1 *20 
IF(S-TMINOIL) 1130*132*130 
132  N*L 

GO  TO  180 
130  CONTINUE 
180  DOMEG* ( S~OM£GA 1/4*0 
Z»N 

I TOP*Z+l *  5 
MU*  1 

300  CONTINUE 

DO  2171  1*1*100 
PHIFYI 1 1*0*0 
2171  CONTINUE 
217  CONTINUE 
SUM* 0.00 
TOP*0«0 

EXPB»E**(-0.7*OMEGA*BP) 


0750 

0760 

0770 

0780 

0790 

0800 

*810 

0820 

0830 

0840 

0850 

0860 

0870 

•880 

0890 

0900 

0910 

0920 

0930 

0940 

0950 

096C 

970 

980 

990 

1000 

1010 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 

1100 

1110 
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TABLE  7A  (Continued) 


00  702  1*1,20  1120 

00  703  J«l»20  1130 

B*I  1140 

D*J  1150 

IF(B-D)11, 12,11  1160 

11  G(I«J)*B*D*PISC»;i I <-1.0)**I>*<(“l«0)**J)-1.0)+(2.0-(t (-1.0)**!)  1170 

l+I (~1*0) **J| ) *EXPB ) )  1180 

GO  TO  703  1190 

12  G(l«J)«(0.35*0MEGA*BP)*t2*0*; <0»7*OM£GA*BP )**2.0  H-P ISO* I < B**2.0 )  +  1200 

1(D**2.0)) )+B*D*PISQ*I2.0-f  t  <-1.0)**I)+II-1.0)**J) )*EXPB)  1210 

703  CONTINUE  1220 

702  CONTINUE  1230 

CALL  OVERFLIJ)  1240 

IFIJ.EQ.2)  GO  TO  751  1250 

750  WRITE(6»752)EXPB  1260 

752  FORMATION)  1270 

751  CONTINUE  1280 

DO  705  1*1 #20  1290 

DO  704  J*1 *20  1300 

PNONDI I # J)*PNOME ( I «J) /OMEGA  1310 

T( I » JJ* I < ( (PNONDI I » J)**2  ) “1 • 0 ) **2  S+(2«0*DAMP*PNOND( I ,J> >**2  )  1320 

1**0«5  1330 

704  CONTINUE  1340 

705  CONTINUE  1350 

DO  706  1*1,20  1360 

A*  I  1370 

PI  I J*(A**2  **PISO+(0.7*OMEGA*BP)**2  1380 

706  CONTINUE  1390 

DO  707  1*1,20  1400 

A* I  1410 

CAPR ( I )*( { { (A**2  )*PISO-0.987*IOMEGA**2  > 1**2  )+0.0529*(OMEGA**  1420 

14  )  )**0»5  1430 

707  CONTINUE  1440 

PNGNU*0«23* I OMEGA**2 )  1450 

DO  708  1*1,20  1460 

A* I  1470 

DGNU  *  I A**2  ) *P I SQ“0 • 987* I OMEGA**2  )  1480 
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TABLE  7 A  (Continued) 


CALL  ACTN  ( DGNU  * PNGNU *GNU< 1 ) • IOTA) 

1490 

IF {IOTA ) 13  *  14# 13 

1500 

13 

GO  TO  216 

1510 

14 

CONTINUE 

1520 

708 

CONTINUE 

1530 

00  710  I«l#20 

1540 

00  709  J-1.20 

1550 

PNLDA»2.0*DAMP*PNOM£( I#J)*OMEGA 

1560 

DLDA- ( PNOME 1 1 #J 1**2  )-(OM£GA**2  ) 

1570 

CALL  ACTN(DLDA#PNLOA»PLOA( I#J)«ILDAI 

1580 

I F ( I LDA ) 19  #20# 19 

1590 

19 

GO  TO  216 

1600 

20 

CONTINUE 

1610 

709 

CONTINUE 

1620 

710 

CONTINUE 

1630 

740 

CONTINUE 

1640 

DO  714  J« 1 # I  TOP 

1650 

DO  713  X* 1 # I  TOP 

1660 

DO  712  M»1 # I  TOP 

1670 

DO  711  N-l.ITOP 

1680 

A»J 

1690 

B-K 

1700 

C“M 

1710 

D-N 

1720 

TMAX  *  AMAX1 1 A#B#C  #0) 

1730 

IF(TMAX-TOP)711#711#737 

1740 

737 

CONTINUE 

1750 

IF(SNYIN) )716#715.716 

1760 

715 

PNUM»0.0 

1770 

DEN-1.0 

1780 

GC  TO  310 

1790 

716 

IF(SNXIM) )718»717:718 

1800 

717 

PNUM-0.0 

1810 

DEN-1.0 

1820 

GO  TO  310 

1130 

718 

IF(SNYIK) 1720.719.720 

1840 

71  <; 

PNUM-0.0 

1850 
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TABLE  7A  (Continued) 


DEN*1«0  1860 

GO  TO  310  1870 

720  IF(SNXIJ) )722*721»722  1880 

721  PNUM«0.0  1890 

DEN*1»0  1900 

GO  TO  310  1910 

722  CONTINUE  1920 

IF(J-M)21#22#21  1930 

21  W«A*C*P I  SO* ( 2  *0*( COS (GNU ( J ) +GNU(M) ) ) * ( COS  1940 

X(PLDA(J*K)-PLDA(M*N! ))+  1950 

1( ( (C-1.0)**J)*( ( -1.0) **M (-1 .0 )*( CAPR ( J)*( COS( GNU(M)+PLDA( J«K)-  1960 

2PLDA (H*N ) ) )-CAPR(M ) *( COS (GNU( J )  -fPLDA (M#N)-PLDA(J»K) ) » )  1970 

X/(PISO*(  1980 

3(A*»2i0|-IC*»2.0ll ) )-<  <E**(-0«115«OMEGA) )*  1990 

X( ( (-1.0)**J)*(COS(OMEGA  2000 

4+GNU ( J ) +GNU ( M ) +PLOA ( J  «K ) -PLDA ( M  #N ) ) )+({-l»0>**  2010 

XM ) * ( COS ( OMEGA+GNU ( J  2020 

5)+GNU(M)+PLDA(M»N)-PLDA( J#K) ) ) )) )  2030 

GO  TO  33  2040 

22  W  «  1.0066*OMEGA*CAPR(J)*(COS(6NU(J(-0.463*PI) )  2050 

X*  ( COS(PLDA  ( J*K  )*•  2060 

1PLO A ( M • N  > )) +A*C*P I  SO* ( 2 . 0* ( CO  S ( GNU ( J ) +  2070 

XGNU( M) ) )* ( COS (PLDA( JiK )-  2080 

2PLDA(M»N) I )-( (E**(-0.115*OMEGA) l*< ( <“1.0)**J(*  2090 

X(COS(OMEGA+GNU(J)+  2100 

3GNU(M)+PLDA(J»K)-PL0A(M.N) ) ) +( ( “1 *0 ) **M)*( COS  2110 

X ( OMEGA+GNU ( J ) +GNU ( N )  2120 

4+PlDA(M»N )“PL0A( J  *<)))) ) )  2130 

33  CONTINUE  2140 

PNUM«SNX ( J )*5NY ( K )*SNX (M)*SNY (N ) *G( K  »N(*W  2150 

DEN*T(J.K)*T(M.N)*P(K)*P(N)*CAPR(J)*CAPR{M)  2160 

310  SUM»SUM+(PNUM/DEN)  2170 

CALL  SSWTCH ( 2  tKOOOFX)  2180 

IFOCOOOFX.EQ.2)  GO  TO  501  2190 

500  WRITEI6.23)  5UM.PNUM.DEN «G ( K*N ) .W#T( J tM *T(M.N ) *P( X) »  2200 

IP (N ) *CAPR (J)»CAPR(M)«A*8*C*D  2210 

23  FORMAT (5E17«8/5E17»8/5E17»8//)  2220 
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TABLE  7 A  (Continued) 


501  CONTINUE  2230 

CALL  SSWTCH ( 6  «KOOOFX 1  2240 

IF (KOOOFX.EQ.2 )  GO  TO  51  2250 

50  WRIf£(6*S2)SNX(J) t SNY ( K ) tSNX (M ) * SNYIN )  2260 

52  FORMAT { 4E17.8 1  2270 

51  CONTINUE  2280 

711  CONTINUE  2290 

712  CONTINUE  2300 

713  CONTINUE  2310 

714  CONTINUE  2320 

I  FUOMEGA*OELTA  1-1.932  >202  *202*203  2330 

202  PHIFY(MU)*4.38*(10«0**(-4»01 1*1 ALFA**2«0 1* I CAPM**2*0) *DELTA* I  OMEGA  2340 

1** (-2.0 ) 1 *SUM  2350 

GO  TO  204  2360 

203  PHIFY(MU)*3.2*< 10.0**1-3.01 1* ( ALFA**2.0 1* ( CAPM**2.0 1* ( DELTA**! -2.0  2370 

1 1 )*(OMEGA**(-5.0) )*SUM  2380 

204  CONTINUE  2390 

lALL  SSWTCH ( 4 »KOOOFX)  2400 

IF ( KOOOFX.EO.2  1  GO  TO  531  2410 

530  WRITE(6*532)X*Y*BP  * 0 AMP * DEP TH *OMEGA *CP * DP  *CAPM* DELTA*  2420 

1ALFA.TIP  2430 

532  FORMAT (5F10.8/5F10.4/2F10.4)  2440 

531  CONTINUE  2450 

CALL  SSWTCH ( 4 *KOOOFX 1  2460 

IF ( KOOOFX.EO.2 1  GO  TO  505  2470 

504  WRITE(6.5Q2)PHIFY(MU) * TOP* MU  2480 

502  FORMAT (2E17.8.1I2)  2490 

505  CONTINUE  2500 

IF(T0P)206. 205*206  2510 

205  CONTINUE  2520 

TOP-ITOP  2530 

MU*MU+1  2540 

ITOP«ITOP+2  2550 

GO  TO  740  2360 

206  CONTINUE  2570 

K-MU-1  2580 

RATIO»ABS( ( PH  I FY( MU1 1 /PHIFY ( K 1 1  2590 
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TABLE  7A  (Continued) 


CALL  $SWTCH(4*K000FX) 

2600 

IF(K000FX,EQ.2)  GO  TO  511 

510  WRITE(6*512)RATIO*PHIFY(MU)»PHIFy(K)*MU*K 

2610 

512  FORMAT (3£17«8*2I2) 

2620 

WR ITEI 6,515 )( PHI FY(J),J* 1*10) 

2630 

515  FORMAT < 5E1 7*8 ) 

2640 

511  CONTINUE 

2650 

!F(RATIO-0. 97 1207*208*208 

2660 

207  CONTINUE 

2670 

TOP«TOP+2«0 

2680 

!T0P=IT0P+’2 

2690 

MU-MU+1 

2700 

GO  TO  740 

2710 

208  CONTINUE 

2720 

IF (RATIO-1. 03 1209 *209*210 

2T30 

209  CONTINUE 

2740 

GO  TO  211 

2750 

210  CONTINUE 

2760 

TOP»TOP+2.0 

2770 

ITOP-ITOP+2 

2780 

MU«MU+1 

2790 

GO  TO  740 

2800 

211  CONTINUE 

2810 

PHIP«PHlFY(i'<U' 

2820 

CALL  SSWTCH(1*K000FX) 

2830 

IF(K000FX.E0.2)  GO  TO  4002 

2C40 

4001  WRITE(6*4000)PHIP*OMEGA 

2850 

4000  FORMAT ( 2E17.8 ) 

2860 

4002  CONTINUE 

2870 

PHIDB  *  (10. 0*ALOG(PHIP) )/2. 30258509 

2880 

WRITE(6*212)PHIP  * PH I OB* OMEGA* I TOP*MU 

2890 

212  FORMAT (3E17.8.2I2) 

2900 

IF (PHIDB >3001*3000, 3000 

2910 

3000  PHIDB-0,0 

3010 

3001  CONTINUE 

3020 

I F(OMEGA-T IP ) 215  *2 16,216 

3030 

215  CONTINUE 

3040 

3050 
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TABLE  7A  (Continued) 


t  F 1 0-3*0 1213.214.214 

3060 

213 

0MEGA*0MEGA+00MEG 

3070 

0*0+1. 0 

3080 

I T0P*Z+1 «  5 

3090 

MU*  1 

3100 

GO  TO  300 

3110 

214 

omega*s+o.ooi»damp 

3120 

0*0.0 

3130 

GO  TO  160 

3140 

216 

END  FILE  4 

3150 

WR!TE(6»3009) I PEN* I  pen 

3160 

3009 

FORMAT (2 16) 

3170 

END  ILE  5 

3180 

END  FILE  5 

3190 

STOP  5 

3200 

99 

STOP  7 

3210 

END 

3220 

IBFTC  ACTN  REF 

ACTN0010 

ACTN 

ACTN0020 

SUBROUTINE  ACTN  ( A.B.THETA* I ) 

ACTN0030 

1*0 

ACTN0040 

IF  I ABSI A l+ABSI B ) I  27*28.27 

ACTN0050 

27 

THETA*  ATAN  ( ABSI B/A ) ) 

ACTN0060 

IF  (A)  22.21.23 

ACTN0070 

22 

IF  (B)  32.24.31 

ACTN0080 

23 

IF  (B)  33.25.34 

ACTN0090 

24 

THETA=3. 1415927 

ACTN0100 

GO  TO  34 

ACTN0110 

25 

THETA*0.0 

ACTN0120 

GO  TO  34 

ACTN0130 

21 

IF  (B)  26.28.29 

ACTN0140 

26 

THETA=4. 7123890 

ACTN0150 

GO  TO  34 

ACTN0160 

29 

THETA=1. 5707963 

ACTN0170 

GO  TO  34 

ACTN0180 

31 

THETA=3. 1415927-THETA 

ACTN0190 

GO  TO  34 

ACTN0200 

32 

THETA=THETA+3. 141 5927 

ACTN0210 

GO  TO  34 

ACTN0220 

33 

THETA=6.283154“THETA 

ACTN0230 

GO  TO  34 

ACTN0240 

28 

WRITE  (6.315) 

ACTN0250 

315. 

FORMAT  ( 40H0PROGR AM“CANNOT“C0NT INUE . ARCTAN  OF  (0/0)  ) 

ACYN0260 

1*1 

ACTN0270 

34 

RETURN 

ACTN0280 

END 

ACTN0290 
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Table  7B  -  Subprogram  II  -  Cavity  Acoustic  Pressure  Power  Spectrum 


ftSFTC  5TRTR1 

DIMENSION  PNOME! 20*20) .FREQ! 20*20 ) *  TMINO! 20 ) .PH1FY ( 100 ) *SNX ( 20  )  * 
1SNY!20),CSX(20) *CSY!20)*G(20.20> *T( 20 . 20) *P ( 20 ) *CAPR( 20 ) 

DIMENSION  PNONOI 20.20 )  »GNU(  20 )*PLDA<  20*20  l.CICAYZ!  20*20 1.SINKD!  20* 
120  )*COSICZ(  20*20).  ACRES!  10*10) .COKAPI 20*20 ) *COGNU( 20*20 ) 

DIMENSION  I DUMP! 18 ) 

402  READ! 5*403 )  X*Y*ZP.BP*DEPTH*DAMP.OM£GA*CP*DP.CAPM.DELTA* 
1ALFA.TIP.T0LH.T0UL 
403  FORMAT (5F10. 8/5F10. 4/5F10. 4) 

READ! 5*410 )  RHO 
410  FORMAT I F10.6 ) 

406  0«0.0 

PI-3.14159265 
PIS0«PI*«2.0 
£*2*71628163 
EXPA-E** ! -0 . 1 1 5*OMEGA ) 

IPEN*+80000 

SINEX-SIN(PI*X) 

COSEX  »  COS(PI*X) 

S1NEY  *  SIN! !PI*Y) /BP) 

COSEY  *  COS! (PI*Y)/BP) 

IF  !ABS(SINEX)-10.0**(-7.0) I  800.800*801 

800  SINEX*0.0 

801  IF  ! ABSISINEY ) -10*0** (“7*0 ) ) 802*802*803 

802  SlN£Y=0«0 

803  IF  !ABS|COSEX)-10.0**(-7.0) )804«804*805 
604  C0SEX*0.0 

805  IF  !ABS!COSEY)-10.0**!-7.0) )806. 806*807 

806  C05EY*0«0 

807  CONTINUE 
SNX(1)«0«0 
SNY!1)*0*0 
CSXdCl.O 
CSY! 1)*1*0 

00  701  I»2«20 
J«I-1 

SNX! I)«SNX! J)*C0SEX+C5X( J)*SINEX 


00  0 
0010 
0020 
0030 
0040 

*  50 
0060 

*  70 
0080 
0  85 

86 

90 

0100 

0110 

0120 

0130 

0140 

0150 

0160 

0170 

0180 

0190 

0200 

0210 

0220 

0230 

0240 

0250 

0260 

0270 

0280 

0290 

0300 

0310 

0320 

0330 

0340 
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TABLE  7B  (Continued) 


SN  V ( I 1  -SNY ( J  1 •COSEY+CSY ! J)*SINEY  0350 

CSX! l 1 -CSX! J 1 *C0SEX-SNX! J)*SINEX  0360 

CSV ( 1) -CSV ! J ) *COSEY-SNY! J)*S INEY  0370 

IF  (ABStSNYt !> 1-10.0**1-7.01 )  80*80*81  0380 

80  SNY ( 1 J ”0«0  0390 

81  IF  (ABS!SNX(I) 1-10. 0»*(-7. 01 182,82*83  0600 

82  SNX( ! 1-0,0  0610 

83  IF  (ABSICSY! I) 1-10. 0**(-7»0) 186*86*85  0620 

86  CSY( 1 1-0.0  0630 

85  IF  ( ABS ( CSX ( 1 1 1  - 10.0** ( -7.0 1 106  *86 «  87  0660 

86  CSX( 11*0.0  0650 

87  CONTINUE  0660 

701  CONTINUE  0670 

WRITE! 6*7 1  0680 

7  FORMAT (1H1/26HW.  STRAWOERMAN  JOB  NO  0775)  0690 

00  100  1-1*20  0500 

DO  101  J«1 *20  0510 

F* I  0520 

H-J  0530 

PNOME! I«J)-(DP*»0.51*! ( ( F»P 1 1 **2*0 )♦< !H»PI /BP)«*2.0) 1  0560 

101  CONTINUE  0550 

100  CONTINUE  0560 

CALL  SSWTCH ( 6 • JSST CH 1  0570 

IF! JSSTCH.E0.2 1  GO  TO  521  0580 

520  WRITEI6*522)  X.Y,ZP,BP*OEPTH,DAMP»OMEGA,CP*DPeCAPM*  0590 

1DELVA*ALFA.TIP  0600 

522  FORMAT 15F10.8/5F10.6/3F10.6I  0610 

WRITE! 6,590 1  RHO  061S 

590  FORMAT! 1X.F10. 6)  0616 

521  CONTINUE  0620 

WR ITE! 6* 162 1 ( ! PNOME (ItJ)*J* 1*101*1*1(10)  0630 

162  FORMAT! 10E12. 61  0660 

160  00  106  K-l *20  0650 

DO  107  L-l i20  0660 

FREO(K,L)-O.0  0670 

107  CONTINUE  0680 

106  CONTINUE  0690 
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TABLE  7B  (Continued) 


00  102  I-l»20 

0700 

00  103  J«l#20 

0710 

IF>OMEGA“PNOME ( I »J) 1 104* 103*103 

0720 

104 

K-I 

0730 

L- J 

0740 

FREQ (K *L ) -PNOMEI K »L ) 

0750 

GO  TO  102 

0760 

103 

CONTINUE 

0770 

102 

CONTINUE 

0780 

DO  700  1-1*20 

0790 

TMINOI I )-0#0 

0800 

700 

CONTINUE 

0810 

M-0 

0820 

00  109  1*1 *20 

.  0830 

00  108  J«l*20 

0840 

IF ( FREQ ( I*JI) 99 *110*111 

0850 

111 

M-M+l 

0860 

TMINO(MJ«FREQ« I »  J) 

0870 

110 

CONTINUE 

0880 

108 

CONTINUE 

0890 

109 

CONTINUE 

0900 

5-TMINOU) 

0910 

00  112  L«l*19 

0920 

IF(S“TMINO(L+l 1)112*121*121 

0930 

121 

$«TMINO(L+l> 

0940 

112 

CONTINUE 

0950 

DO  130  L-l*20 

0960 

IF(S“TMINO<L ) >130*132*130 

0970 

132 

N-L 

0980 

GO  TO  180 

0990 

130 

CONTINUE 

1000 

180 

DOMEG- ( S -OMEGA ) /3  »  0 

1010 

Z-N 

1020 

ITOf»«2+l«S 

1030 

MU-1 

1040 

00  901  1-1.10 

1050 

DO  900  J-l«10 

1060 
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TABLE  7B  (Continued) 


A* 1-1  1070 

8*J-1  1080 

ACRES! !.J)*PI*CP*t (A**2  )♦! !B/8P)**2  )>**0.3  1090 

900  CONTINUE  1100 

901  CONTINUE  1110 

WR 1TE! 6.902 I  < !ACRES! I .J) .J*1.10).I*1.10>  1120 

902  FORMAT (//10E12.A)  1130 

300  CONTINUE  1140 

00  2171  !«1.100  1150 

PHIFY!I)*0.0  1160 

2171  CONTINUE  1170 

217  CONTINUE  1180 

SUM* 0.00  1190 

TOP*0.0  1200 

EXP8*E**!-0.7*OMEGA*BP)  1210 

DO  702  1*1.20  1220 

00  /03  J»1 .20  1230 

B* I  1240 

0* J  1250 

IF iB-D) 11 • 12 t 11  1260 

11  G!  l.J)*B«D*PISC»l  U  (-1.0 )**!)* t!-1.0)**J)-l. OKI 2. 0-Ht-l«0>**l)  1270 

1*1 I“1«0)**J) ) *EXPB ) )  *  1280 

GO  TO  703  1290 

12  Gl I .J)«!0«35*OMEGA*BP)*( 2*0*1 !0»7*OMEGA*BP)**2  KPISQ*! !B**2  )+  1300 

1 !D**2  ) ) )-*B*D*PISQ*!  2.0-1 !!-l«0)**lK<!-l»0)**J) )*EXPB )  1310 

703  CONTINUE  1320 

702  CONTINUE  1330 

CALL  OVERFLIJ)  1340 

I F ! J.E0.2 )  GO  TO  731  1350 

750  MRITE(6.752)EXP8  1360 

752  FORMAT (012 )  1370 

751  CONTINUE  1380 

DO  705  1*1.20  1390 

DO  704  J*1 .20  1400 

PNOND! I . J)*PNOME 1 1 .J) /OMEGA  1410 

T( I . J)*l ( ( ( PNOND! I  * J)**2  >-l«0>**2  >♦! 2.0*DAMP*PNONDI I . J>)**2  )  1420 

1**0. 5  1430 
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TABLE  7B  (Continued) 


70*  CONTINUE  1*40 

705  CONTINUE  1*50 

00  706  1*1*20  1*60 

A* I  1*70 

P(!)«<A**2  )*PISQ+I0.7*OMEGA*BP)**2  1*80 

706  CONTINUE  1*90 

DO  707  1*1 *20  1500 

A*  I  1510 

CAPRI I>«{<(IA**2  )*PI5O-0.987*(OMEGA**2  >1**2  >+0.0529*{OMEGA**  1520 

1*  >)**0«5  1530 

707  CONTINUE  15*0 

PNGNU“0«23* I OMEGA**2  >  1550 

DO  708  1*1*20  1560 

A* I  1570 

DGNU  «(A**2  )  *P  1 5Q**0«  987*  I  OMEGA**  2  >  1580 

CALL  ACTNIDGNU  *PNGNU*GNU( 1 ) « IOTA)  1590 

IF(I0TA)13, 14*13  1600 

13  GO  TO  216  1610 

1*  CONTINUE  1620 

708  CONTINUE  1630 

DO  7080  1*1*20  16*0 

DO  7081  J*l*20  1650 

COGNUI I « J)  *  COSIGNUm+GNUlJ))  1660 

7081  CONTINUE  1670 

7080  CONTINUE  1680 

DO  710  1*1 *20  1690 

DO  709  J*1 *20  1700 

PNLDA*2.0*DAMP»PNOME(I»J)*OMEGA  1710 

DLDA«(PNOME 1 1 • J)**2  >-(0MEGA**2  )  1720 

CALL  ACTN(DLDA»PNLDA.PLDA<I«J>»ILDA>  1730 

IF ( ILDA)19*20*19  17*0 

19  GO  TO  216  1750 

20  CONTINUE  1760 

709  CONTINUE  1770 

710  CONTINUE  1780 

CQR* (OMEGA/CP )»*2  1790 

DO  811  1*1 *20  1800 


i 
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TABLE  7B  (Continued) 


00  610  J*l*20 
A*I-1 
6*  J-l 

E0R*PISQ»< (A*»2  )♦<( B/8P)*»2  )) 

I F (EQR-CQR )812»812*813 

812  CAAYZI  I*J)<>(CQR“EQR>**0«5 
ARGD-CAAYZI t*JI»DEPTH 
ARGZ*CAAYZ(I*J»*ZP 

SI  NADI  I *J)*SIN( ARGD) 

COSAZ ( I  * J) *COS( ARGZ ) 

GO  TO  810 

813  CAAYZI I *J)«(EOR-CQR)**0«5 
AR6D*CAAYZ ( 1 *J)*DEPTH 
ARGZ«CAAYZ(I*J)*ZP 

SI  NADI  I  * J)* (0*5)*( (E**ARGO)-IE**(-ARGD) ) » 
COSAZI  I,J>-I0.5)«((E«*ARGZ)*IE»*(-ARGZn) 

810  CONTINUE 

811  CONTINUE 

DO  5002  1*1*20 

OC  5001  J*1 *20 

A*  I 

B*J-1 

A*  I 

L*J*1 

IFIA-B 15003*5004 *5003 
500*  COAAP(I*J)«0.0 
GO  TO  5001 
5003  AHAF*(A*BJ/2.0 
IHAF»AHAF 
AIH-IHAF 

IF (AHAF-AIH )*001 »*002**001 
*002  COAAP (I.J1*0*0 
GO  TO  5001 

*001  IFIB)  5005*5006*5005 

5005  0IJ*1*0 

GO  TO  5007 

5006  OIJ-2.0 


1810 

1820 

1830 

18*0 

1830 

1860 

1870 

1880 

1890 

1900 

1910 

1920 

1930 

19*0 

1950 

1960 

1970 

1980 

1990 

2000 

2010 

2020 

2030 

20*0 

2090 

2060 

2070 

2080 

2090 

2100 

2110 

2120 

2130 

21*0 

2150 

2160 

2170 
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TABLE  7B  (Continued) 


5007  COKAPU»J)»A*<1.0-<  (-1.0  )***)*( <-l«0)**L) I A**2{-(B**2) ))  2180 

5001  CONTINUE  ’190 

5002  CONTINUE  2200 

740  CONTINUE  2210 

00  714  J«l#ITOP  2220 

00  713  K*1 * ITOP  2230 

DO  712  M»l#!TOP  2240 

00  711  N*1 « ITOP  2250 

A»J  22«-0 

B>K  2270 

C«M  2200 

0-N  2290 

IF(J-M)21*22»21  2300 

21  W»A*C*PISO*<2«0*COGNU(J.M)*(COS(PLOA< J*(O-PL0AIM*N) >)+  2310 

1<<(<-1.0)**J)*(<-1.0)#*M)-1«0)*(CAPR< J)*tCOS(GNU(M)+PLDA(J.lO-  2320 

2PLDA(M*N ) ) J-CAPR (M }«(COS(GNU( J )+PLDAIM»N)-PLDA{ J*K ) ) ) ) / ( PISG*!  2330 

3(A#*2)-(C**2) J))-(EXPA*< ( <-l«0 ( COSIOMEGA  2340 

4+GNUI JI+GNUIMJ+PLDAI J*K)-PLDA(M»N )J)  +  (I-1»0)**M)*( COSIOMEGA+GNUt  J  2350 

5J+GNU<M)+PLDAIM»N)-PLDA{  Jiicn  HI)  2360 

GO  TO  33  2370 

22  W«1*0066*OMEGA*CAPR(J)*(COS(GNU(J)-0.463*PI ) )* f COS ( PLDAI J*K !-  2380 

lPLDA(M«N)mA*C*P!SQ*I2.0*COGNU<J«M)*(COS(PLDA(  J*lO-  ?390 

2PLDA(M*N ) ) )“( EXP A* ( ( (“1«0) COSIOMEGA+GNUI J )♦  2400 

3GNUIM;+PLDA(J.K)-PLDA(M*N)  ) )  +  ( ( —  1  •  0 ) * *M  1  * {  COSIOMEGA-fGNU t  J I+GNUIN )  2410 

4+PL0AIM,N)-PLDA(J#ICI ) )>))  2420 

33  CONTINUE  2430 

DO  824  JQ»l»ITOP  2440 

00  823  KR«1 ♦ ITOP  2450 

00  822  MS*1 • ITOP  2460 

DO  821  NT“1 *  I  TOR  2470 

AO-JO  2480 

BR-KR  2490 

CS-MS  2500 

DT-NT  2510 

THAX  «  AMAX1(A*B  .C.O»AO*BR«CS«0TJ  2520 

IF(TMAX-TOPI821«821#737  2530 

737  CONTINUE  2540 
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TABLE  7B  (Continued) 


IF(CSY(NT) 1716.715  .716 

2350 

715  PNUM*0.0 

2560 

DEN*  1  *  0 

2570 

GO  TO  310 

2580 

716  IF(CSX( MS  1)718. 717*718 

2590 

717  PNUM»0 .0 

2600 

DEN*  1*0 

2610 

GO  TO  310 

2620 

718  IF(CSY(KR 1)720. 719. 720 

2630 

719  PNUM«0.0 

2640 

DEN* 1*0 

2650 

GO  TO  310 

2660 

720  IF(CSX( JO  1)722. 721. 722 

2670 

721  PNUM-0.0 

2680 

DEN-1.0 

2690 

GO  TO  310 

2700 

722  CONTINUE 

2710 

I F ( COKAP ( J . JO  1 1  602.601.602 

2720 

601  CKAPA*0«0 

2730 

PNUM*0.0 

2740 

DEN-1.0 

2750 

GO  TO  310 

2760 

602  IF (COKAPIK.KR 1 1  604*603.604 

277-5 

603  CKAPA-0.0 

2780 

PNUM*0«0 

2790 

DEN*  1.0 

2800 

GO  TO  310 

2810 

604  IF(COKAP(M. MS) 1606.605*606 

2820 

605  CKAPA*0.0 

2830 

PNUM*0«0 

2840 

DEN-1.0 

2850 

GO  TO  310 

2860 

606  IF(COKAP(N. NT) 1608.607*608 

2870 

607  CKAPA-0,0 

2880 

PNUM-0.0 

2890 

DEN-1.0 

2900 

GO  TO  310 

2910 
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TABLE  7B  (Continued) 


608  CONTINUE  2920 

CKAPA«COKAP <  J  «  JO ) #COKAP ( K.KR) *C0KAP (M  *MS ) *C0KAP I N  *  NT )  2930 

UQRST*CPCAYZ!  JO.KR ) *CKAYZ (MS.NT ) *SINKD! JO»KR)*SINKD(MS»NT)  2940 

PNUM«CSX!JQ)*CSY!KR)*CSX(MS>»CSY(NT)*COSKZ!JQ»XR)*COSKZ!MS*NT)  2950 

1*6(K*N)*W»CKAPA  2960 

DEN«T! J.K)*T!M.N)*P(K)*:>:N)»CAPR< J) *CAPR (M ) *UQRST  2970 

310  SUM«S'JM+(  PNUM/DEN )  2980 

CAUL  SSWTCH! 2  * JSSTCH)  2990 

IF!J5STCH.EQ.2>  GO  TO  501  3000 

500  WRITE(6.23)  SUM.PNUM.DEN .G ( K *N ) .W.T ! J *X ) . T (M.N I »P I K ) *  3010 

IP  <  N  > tCAPR ( J ) tCAPR (M ) *CXAPA*UORST  » JO.KR. MS .NT.J.K.M.N  3020 

23  FORMAT!5E17.8/5E17.8/3E17.8/8I10//>  3030 

501  CONTINUE  3040 

821  CONTINUE  3050 

8 22  CONTINUE  3060 

823  CONTINUE  3070 

824  CONTINUE  3080 

711  CONTINUE  3090 

712  CONTINUE  3100 

713  CONTINUE  3110 

714  CONTINUE  3120 

IF! !OMEGA*DELTA)-l. 932 1202*202 *203  3130 

202  PHIFY(MU)«7.0C8*!1040**t-3.0) )* ! ALFA**2.0 )* < CAPM»*2.0) *DELTA*SUM  3140 

l*(RHO**2)/(PISO«'»2)  3150 

GO  TO  204  3160 

203  PHIFY!MU)«5.112*!10.0**<-2.0))*!ALFA**2.0>*{CAPM**2.0)»!DELTA**  3170 

l!-2.0) >#!OMEGA**!-3.0))*SUM  * <RHO**2 > /I PISQ**2 )  3180 

204  CONTINUE  3190 

CALL  SSWTCH( 4 ♦ JSSTCH)  3200 

IF(JSSTCH.E042)  GO  TO  531  3210 

530  WRITE! 6«532 )  X.Y.ZP. BP. DEPTH. DAMP .OMEGA, CP, DP. CAPM.  3220 

IDELTAtAl.FA.TIP  3230 

532  FORMAT 1 5F10.8/5F10 .4/3F1 0.4 )  3240 

531  CONTINUE  3250 

CALL  SSWTCH 14 .JSSTCH)  3260 

IF! JSSTCH. EO. 2)  GO  TO  505  3270 

504  WRITE!6.502 )  PHIFYJMU) .TOP.MU  3280 
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TABLE  7B  (Continued) 


502 

FORMAT (2E 17*8*112) 

3290 

CALL  SSWTCHI4*JSSTCH) 

3300 

IF(JSSTCH.E0.2)  GO  TO  99 

3310 

505 

CONTINUE 

3320 

IFITOP 1206*205*206 

3330 

205 

CONTINUE 

3340 

TOP* ITOP 

3350 

MU-MU+1 

3360 

I TOP-I TOP+2 

3370 

GO  TO  740 

3360 

206 

CONTINUE 

3390 

K-MU-1 

3400 

RATJO  *  ABSI ( PHIFY (MU) 1 / (PHIFYI K 1 1 ) 

3410 

CALL  SSWTCH(4*JS5TCH) 

3420 

IFUSSTCH.EQ.2)  GO  TO  511 

3430 

510 

WRITE(6,512)  RATIO, PHIFY(MU) *PHI FY{ K 1 »MU*K 

3440 

512 

FORMATI3E17. 8*2121 

3450 

WRITE! 6*515 1  (PHI FY ( J i * J-l » 10 1 

3460 

515 

FORMAT ( 5E17.8 ) 

3470 

CALL  SSWTCH(4»JSSTCH) 

3480 

IF(JSSTCH.E0.2)  GO  TO  99 

3490 

511 

CONTINUE 

3500 

IF(RATIO-TGLL 1207*208 *208 

3510 

207 

CONTINUE 

3520 

TOP- TOP+2 .0 

3530 

ITOP-ITOP+2 

3540 

MU-MU+1 

3550 

GO  TO  740 

3560 

208 

CONTINUE 

3570 

I F ( R AT I 0~T0LH 1209*209*210 

3580 

209 

CONTINUE 

3590 

GO  TO  211 

3600 

210 

CONTINUE 

3610 

TOP- TOP+2. 0 

3620 

ITOP-ITOP+2 

3630 

MU-MU+1 

3640 

60  TO  740 

3650 

211  CONTINUE  TABLE  7B  (Continued) 

PHIP«PHIFY(MU) 

PlilOB  »  <10«0»ALOG»J'HIP))/2. 30958509 

212  F0»^tiF,17,»PHr*PH,DB’0',,fGA*'T°^U 
Zlc  r ORMAT ( 3£l  7 « #*  $ 2 1  2  ) 

CALL  SSWTC’i  (4  * JSSTCH) 

IF(J$STCH«EQ,2)  GO  TO  99 

IF( PH *08)300’ *3000*3000 

3000  PHI0B*O,0 

3001  CONTINUE 

IF (OMEGA-T IP) 2 15  *2 16,216 
215  CONTINUE 

IF (0-2,0) 21 3,214,214 

213  OMEGA«OMEGA+DOMEG 
Q»Q4l»0 
IT0P*Z*-1«5 

MU»1 

GO  TO  300 

214  OMEGA«S+0«001*OAMP 

0,0 


i  TO  160 
216  END  FILE  4 
WRITE(6»3009) 
3009  FORMATI2I6) 
END  FILE  5 
END  FILE  5 
STOP  5 
99  STOP  7 
END 

IIBFTC  ACTN  REF 
CACTN 


IPENlIPEN 


27 

22 


SUBROUTINE  ACTN  (A»B»THETA»I ) 
I  *0 

IF  ( ABS(A)+ABS(B) )  27,28*27 
THETA«  ATANIABSIB/A) ) 

IF  (A)  22,21,23 
IF  (B I  32,24,31 


3660 

3670 

3680 

3690 

3700 

3710 

3720 

3730 

3740 

3750 

3760 

3770 

3780 

3790 

3800 

3810 

3820 

3830 

3840 

3850 

3860 

3870 

3880 

3890 

3900 

3910 

3920 

3930 

3940 

ACTN0010 

ACTN0020 

ACTN0030 

ACTN0040 

ACTN0050 

ACTN0060 

ACTN0070 

ACTNQ080 


23 

IF  (B)  33,25,34 

24 

THETA=3* 1415927 

ACTN0090 

GO  TO  34 

ACTN0100 

25 

THETA»0.0 

ACTN01 10 

21 

GO  TO  34 

ACTN0120 

IF  (B)  26,28,29 

ACTN0130 

26 

THE TA=4, 7 123890 

ACTN0140 

GO  TO  34 

ACTN0150 

29 

THETA-1, 5707963 

ACTN0160 

31 

GO  TO  34 

ACTN0170 

THETA-3 *14 15 927-THETA 

ACTN0180 

GO  TO  34 

ACTN0190 

32 

THETA-THETA+3, 141 5927 

ACTN0200 

GO  TO  34 

ACTN0210 

33 

THETA-6, 2831 54-THETA 

ACTN0220 

GO  TO  34 

ACTN0230 

28 

WRITE  (6,315) 

ACTN0240 

315 

FORMAT  (40HOPROGRAM-CANNOT-CONT INUE, ARCTAN  OF  (0/0)  > 

ACTN025G 

ACTN0260 

34 

RETURN 

ACTN0270 

ENO 

ACTN0280 

ACTN0290 
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APPENDIX  E 

BOEING  PROGRAM  II  (JACOBS  AND  LAGERQUIST) 

APPENDIX  El  -  MATHEMATICAL  ANALYSIS 
APPENDIX  E2  -  METHOD  FOR  DETERMINING  INPUT  DATA 
APPENDIX  E3  -  PROGRAM  IDENTIFICATION 
APPENDIX  E4  -  TEST  RUNS 
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NOTATION 


N 


Ai,Aj,Ak 

K 

a 

B 

b 

iC) 

lCF(co)) 

si  (to) 

•• 

‘I 


Cp(&T,to) 

lCp(to)) 

[  Cs(to)) 

{nO} 


W/0  (ito),Hfk)(io) 
{/} 

[//(fe>)l 

i 

hi 

[K) 

K 2 


Diagonal  matrix  of  elemental  areas  on  structure  associated 
with  nodal  points 

Elemental  area  on  structure  associated  with  i,  j,  and  k  node 
points  (in.2) 

A  constant,  Al  -  26.5,  A2  =  7.20,  A3  =  0.5 

l/Uc0(m.-1) 

1/0.88 *  (in.-1) 

WUC(  in."1) 

Damping  matrix 

Force  co-power  spectral  density  matrix  (lb2  .  sec) 

Force  co-power  spectral  density  (co-PSD)  acting  on  plate  pairs 
i  and  j  (lb2  •  sec) 

Local  coefficient  of  frictions  r  /  g 
Pressure  co*power  spectral  density  function  (psi2  •  sec) 
Pressure  co-power  spectral  density  matrix  (psi2  •  sec) 
Deflection  co-power  spectral  density  matrix  (in.2  •  sec) 

Diagonal  matrix,  real  factor  in  admittance  matrix 
Diagonal  matrix,  imaginary  factor  in  admittance  matrix 
Column  force  matrix  (lb) 

Structural  damping  coefficient 

Complex  frequency  response  function  defining  deflection  at  j 
due  to  unit  harmonic  forcing  at  i  and  k ,  respectively 

Column  matrix,  Laplace  transform  of  force  column  matrix  with 
unit  impulse  at  particular  point,  zero  forces  at  other  points 

Complex  frequency  response  matrix 

'f-l 

Finite  node  points 
Stiffness  matrix 

?  3  An 

Equals — ;  also  equals  £  — =  9.56  (a  normalization 
rl  n=i  Kn 

constant  for  power  spectral  density) 
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*»Vi 


Cartesian  coordinates  of  ith  node  point  (in.) 


Yn(“nS>’Yn 

ft) 

A  correction  factor  (equals  1  unless  otherwise  defined) 

y 

C p/C v,  ratio  of  specific  heats  of  air,  1.41  when  pa  =  14.7  psi 

C 

Critical  damping  ratio 

lew} 

Column  matrix  of  deflection  distance  of  structure  normal  to  the 
surface  of  the  structural  plate  (in.) 

s* 

Boundary  layer  displacement  thickness  (in.) 

n 

Separation  distance  in  y-direction  (in.) 

A 

7 

t]/0.8K n8*  ,  normalized  separation  distance 

V 

7  +  7/ -7,- (in-) 

Distance  in  y-direction  between  node  and  dummy  variable  on 
ith  and  ;th  nodal  areas  respectively  (in.) 

$/ 

j^./O.S  K  n8*  ,  r) j/0.8  K n8*  ,  normalized  separation  distance 

% 

Smallest  basic  separation  distance  in  y-direction  (in.) 

A 

% 

r]0 /0.8Kn8*  ,  normalized  separation  distance 

e 

Eddy  lifetime  (sec  -  *) 

K0  nS)iK0  j 

w 

Modified  Bessel  function  of  order  zero  with  argument  K nS 
and  /  BUC  respectively 

Propouionality  factor  between  damping  and  stiffness  and 
inertias  respectively 

( 

Separation  distance  in  ^-direction  (in.) 

r 

£+£/-£,  (in>) 

£«>£/ 

Distance  in  z-direction  between  node  and  dummy  variable  on 
ith  and  ;th  nodal  areas  respectively  (in.) 

^0 

Smallest  basic  separation  distance  in  z-direction 

nF  ,(*w) 

«/ 

Normalized  cross  power  spectral  density  of  forces  acting  on 
plate  pair  i  e 'd  j,  a  complex  function  of  co  (sec) 

nF(n)..M 

nth  component  of  normalized  cross  power  spectral  density  of 
forces  acting  on  plate  pair  i  and  ;,  a  complex  function  of  o>  (sec) 

n  „(£>?;&«) 

nth  component  of  the  normalized  pressure  cross  power 
spectral  density,  a  complex  function  of  w  (sec) 

n(£>?;  iw) 

Normalized  pressure  cross  power  spectral  density,  a  complex 
function  of  co  (sec) 

n(»),  n» 

Normalized  pressure  power  spectra!  density  and  the  nth  compo¬ 
nent  of  normalized  pressure  power  spectral  density  respectively 
269 

r ) 


l<t>p  (lo>) 
*F  (®) 


<I»f.  (fo,) 


'w) 


Vto> 


I*”) 


nth  component  of  pressure  cross-correlation  coefficient  (psi 2 ) 

Cross-correlation  coefficient,  -1  <  p(^,t]\t)  <  t  1 
Time  delay  (sec) 

Local  fluid  shearing  stress  of  air  measured  at  wall  (psi) 

Force  cross  power  spectral  density  matrix  (lb2  •  sec) 

Force  power  spectral  density  acting  on  the  ith  structural  plate 
(!),'’  .sec) 

Cross  power  spectral  density  of  forces  acting  on  plate  pair  i 
and  y,  a  complex  function  of  cj  (lb2  .  sec) 

Pressure  cross  power  spectral  density  function  (psi2  •  sec) 

Pressure  power  spectral  density  (psi2  •  sec) 

Matrix  of  eigenvectors 

Eigenvector  column  matrix  (rth  normal  mode  shape) 

Phase  angle  (radians) 

Angular  frequency,  2n{  (radians/sec) 

Eigenfrequency  of  fth  mode  of  structure,  modal  frequency 
(radians/sec) 

Frequency  and  a  set  of  frequencies  respectively  at  which  pressure 
cross  power  spectral  density  is  defined  (radians/sec) 

Angular  eigenfrequency  or  eigenvalue  (radians/sec) 

Transpose  of  matrix 

Complex  conjugate 

First  derivative  with  respect  to  time 

Second  derivative  with  respect  to  time 

Time  average 

Vector 


[*—(  )-*]  or  [  (  )• — ]  Denotes  diagonal  matrix 
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APPENDIX  El  -  MATHEMATICAL  ANALYSIS 

This  section  presents  equations  developed  by  means  of  a  finite  element  analysis34-37 
for  the  deflection  cross  power  spectral  density  response  of  a  simple  damped  panel  to  a  turbu¬ 
lent  boundary  layer. 

Consider  a  plate  idealized  into  a  finite  number  of  discrete  structural  elements  con¬ 
nected  at  node  points  having  prescribed  freedoms  (Figure  ]9).  The  physical  properties  of 
the  plate  are  assumed  to  be  lumped  into  individual  elements.  The  equations  of  motion  of 
each  panel  element  is  written  in  the  form  of  a  matrix  equation18 

IM]  15  (0  I  +  (Cl  15(0  I  +  [ K\  15(0  !  =  1F(0  I  (El) 

where  5 (t)  and  F(t)  are  column  matrices  of  time  dependent  nodal  displacements  and 
applied  forces,  respectively. 

The  square  matrices  U/),lC),  and  [K\  are  inertia,  viscous  damping,  and  stiffness  coef¬ 
ficients,  respectively. 

Elements  of  the  inertia  matrix  [M]  correspond  to  inertia  forces  associated  with  the  free¬ 
doms  at  each  node.  For  small  panel  deflections,  rotary  and  inplane  inertia  forces  are  small 
in  comparison  to  the  forces  corresponding  to  translational  freedoms.  Hence  the  inertia  of  the 
elements  are  treated  by  assuming  their  masses  to  be  concentrated  at  their  respective  nodes, 
thereby  diagonalizing  the  inertia  matrix.  The  accuracy  of  the  concentrated  mass  assumption 
depends  primarily  on  the  number  of  elements  used  to  represent  the  panel;  accuracy  increases 
with  the  number  of  elements  used  (for  some  quantitative  data  on  accuracy,  see  pages  22,  23 
and  34  of  Reference  34). 

The  viscous  damping  is  assumed  to  be  proportional  to  inertia  and  stiffness;  the  signif¬ 
icance  of  this  assumption  is  discussed  below.*  Hence 

[Cl  =  plM)  +\[K\  (E2) 

where  p  and  X  are  proportionality  factors. 

For  the  /th  mode: 

C;  =  p  +  X  Kj 

It  is  convenient  to  represent  the  damping  factor  £  which  represents  the  fraction  of 
critical  viscous  damping  for  the  /th  mode 


C ,  C.  pM.  +  \K . 

2£.  = - ' — =  —!—= — i - L 

'  VTff  'V/  Mib)i 


+  \<Oj 


(E3) 


or 


2  CjU)  =  u  +  \(o2j 


♦Viscous  and  structural  damping  are  forms  of  damping  which  allow  the  equations  of  motion  to  be  uncoupled  when 
displacements  are  expressed  in  terms  of  normal  mode  shapes. 
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Figure  19  -  Random  Pressure  Loads 


Alternatively,  when  structural  damping  is  used,  the  equations  of  motion  for  this  damp¬ 
ing  are  (see  pages  83-86  of  Reference  18)  * 

[M]  12(0  1  +  (1  +  ig)  M  18(0  !  =  \F(t)  I  (E4) 

When  the  structural  damping  coefficient  is  small  (g  <<  1),  then  (see  page  88,  Equation  XI 
and  page  16,  Equation  (27)  of  Reference  18)  the  coefficient  g  is  related  to  an  equivalent  vis¬ 
cous  damping  factor 

9  “  2  C,  (E5) 

Total  panel  damping  includes  both  acoustic  radiation  and  structural  damping.  This 
total  damping  based  on  experimental  panel-displacement  power  spectral  density  measure¬ 
ments  is  assumed  to  have  the  following  mass-proportional  viscous-damping  representation  as 
in  Equations  (E2;  and  (E3)  (see  pages  24-25  and  34  of  Reference  34) 

A/  7j> 

^  =  2 f=  f 

The  symmetric  stiffness  matrix  [ K]  for  the  plate  is  generated  by  a  computer  program 
based  on  the  displacement  or  stiffness  method  of  static  matrix  structural  analysis.37  Both 
applied  loading  and  inertia  forces  of  the  panel  correspond  only  to  translational  freedoms, 
but  the  stiffness  matrix  is  formulated  with  all  freedoms  included.  Through  matrix  manipu¬ 
lation,  the  stiffness  matrix  can  also  be  expressed  solely  in  terms  of  translational  deflections 
of  the  panel.  Obtaining  this  “reduced”  stiffness  matrix  in  no  way  restrains  the  displace¬ 
ments  of  the  unloaded  freedoms;37  thus  the  accuracy  of  the  stiffness  coefficients  is  unaf¬ 
fected.  In  the  displacement  method  the  panel  is  idealized  as  a  system  of  finite  plate  ele¬ 
ments  connected  at  node  points.  For  any  point  on  the  plate 


Fr=“n  Si  +  KnS2  + 


Krrdr+  ■  •  •  +  K 


where  the  K r' s  are  force  influence  coefficients  that  relate  the  external  force  at  one  point 
on  the  plate  to  deflections  at  that  and  other  points.  The  collection  of  these  force  equations 
is  represented  as 

Fx  F12  '  ‘  *  Fln  ^1 

F2  F21  F22  *  ’  *  F2  n  ^ 2 


“'I  Kn2 


•  •  K, 


*See  footnote  on  page  271, 
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or 

I  F  I  =  M  I  S  I  (E6) 

where  the  matrix  of  force  influence  coefficients  is  called  the  stiffness  matrix  and  the  individ¬ 
ual  terms  in  the  matrix  are  called  the  stiffness  coefficients.  The  coefficient  (or  element) 

K rs  of  [K\  is  the  static  force  at  nodal  point  i  corresponding  to  a  unit  displacement  at  point 
y,  all  othor  points  held  fixed.  The  foregoing  is  more  fully  discussed  in  Reference  37. 

We  determine  the  system  response  from  the  equations  of  motion,  (El)  or  (E4),  for  an 
excitation  random  in  time  using  the  frequency  response  method  of  analysis.  The  method  spec¬ 
ifies  the  characteristics  of  the  systems  behavior  by  a  matrix  of  complex  frequency  response 
functions,  i.e.,  the  admittance  matrix  now  derived. 

Let  S(t),  the  response  at  time  t  due  to  a  unit  impulse  applied  at  an  earlier  time  t ', 
be  expressed  by  a  unit  impulse  function  A(f-f').33  Then  the  response  to  an  arbitrary  input 
F(t  ')  is,  by  use  of  the  superposition  or  convolution  integral 

S(0  =  f  F(t  ')  h(t-t')  dt' 

*0 

since  h{l~t')  -  0  for  t’>  t  and  since  F(t')  can  be  defined  for  all  negative  t\  the  limits  of 
integration  can  be  extended  (see  Equation  2.8  of  Reference  33)  so  that 


w  -  f 


F(t')  h(t-t')  dt ’ 


If  F(t')  =  e,(ot  ,  then 


1*00 

S(t )  -  h(t-t')  e  icot'  dt' 


^-oo  ro o 

Let  t  =  t  -t' ,  - dr  =  dt' ,  Then  since  -  *  •  •  =  •  -  .  dr, 

Joo  —  oo 


8(t)  =  e 


10)  t 


J 00  Hr)  e~u 


,wr  dr  =  eitatH(ico) 


/OO 

h(r)  e~!(or  dr  is  defined  as  the  complex  frequency  response  function 

— oo 

=  2 rt  times  the  Fourier  transform  of  the  unit  impulse  response  function. 
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The  Laplace  transform  of  Equation  (El)  is 

£[(*/]  !«(«)  i  +  t€7l I  1  +  CAT] !  «(<)  l]  -£IF(01 

where  £|  F(t)  i  =  F{t)  e~  stdt,  s  being  the  Laplace  dummy  variable. 

Jo 

For  a  system  at  rest  at  time  t  =  0,  this  may  be  written 

[s2[M]  +  s  (Cl  +[*]]£!  S(t)  l  =  £i  F(t)\ 

If  a  unit  impulse  is  applied  at  time  t  =  0  to  one  load  point  of  the  structure,  then  since 
the  Laplace  function  of  a  unit  impulse  function  is  unity 

p[/r/l  +  s[Cl  +  [Af]]  £U(0  1=  Hi 

where  { 1 1  is  a  null  column  matrix  except  for  a  unit  entry  corresponding  to  the  excitation  point. 
If  a  unit  impulse  is  consecutively  applied  to  each  load  point  and  the  resulting  displacement 
column  matrices  are  arranged  in  a  square  matrix,  then38 


Let  s  ■*  ico.  Then 


r£(s)]-[*2  [#]  +  «[<?)  +  m]  1 

£(8)  =[ 

Jo 


-f 

Jo 


S(t)  e~l<ot  dt  S(r)e~,a)Tdr  and  H(ico) 


f  h{r)  ei0iT  dr  =  [  S(r)  e~i(or  dr  =t 
•1—00  J— 00  •'0 


h(r)  e  l0iT  dr- 1  8(r)  s  lcor  dr  =  I  8(r)  e~  lb)T  dr  since  as  previously  stated  k(r)  = 


S(r)  =  0  for  t'>  t  or  r  <  0.  Thus, 

=  lim  [l(8)]  =  £-ey2U/]  +  io>[C]  +  [/fl]  (E7) 


,-l 


is  the  admittance  matrix  which  is  a  square  complex  matrix  dependent  on  frequency  a.  In 
general  (for  a  large  number  of  elements),  the  evaluation  of  this  matrix  inversion  involves  ex¬ 
tensive  computer  time.  The  inversion  can  be  avoided  if  we  assume  the  damping  to  be  propor¬ 
tional  to  inertia,  to  stiffness,  or  to  both  (see  Equation  (E2)  ).  This  assumption  permits  the 
displacements  to  be  expressed  in  terms  of  the  normal  modes,  thereby  uncoupling  the  equations 
of  motion.  The  decoupling  of  the  equations  of  motion  results  in  the  diagonalization  of  the  ad¬ 
mittance  matrix,  thus  eliminating  matrix  inversion. 

The  following  procedure  is  used  to  find  an  admittance  matrix  [//(iw)]  which  will  not 
involve  matrix  inversion  when  the  equations  of  motion  are  decoupled,  the  displacements  being 
expressed  in  terms  of  the  normal  mode  shapes.  The  mode  shapes  are  determined  from  the  un¬ 
damped,  unforced  equations  of  motion18 
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[M\\S(t)  i  +  [K]\8(t) !  =  0 

Tho  solutions  to  this  equation  are  expressed  in  terms  of  normal  modes 

.  .  i  (0);  t  +  [1/  ) 

1  5(0  1  =  U('>l  e  1  V 

Substitution  of  the  latter  into  the  former  equation  yields 

[[*] -«£[#]]  =  0 

Equating  the  determinant  of  the  square  matrix  to  zero  yields  the  nontrivial  solutions  to  the 
classic  eigenvalue  equation ,  i.e. ,  set 

|  IK] |=0 

Corresponding  to  each  degree  of  freedom  of  the  system,  we  can  solve  for  an  eigenvalue  otj  . 
Associated  with  each  eigenfrequency  <•>.  is  an  eigenvector  { <£(;)  1. 

By  use  of  a  coordinate  transformation, 18  we  write 

15(01  =  (<£1  [?(01 

where  each  column  of  [<f>]  is  a  normal  mode  1  <j>^^  1  and  I  q(t)  1  is  a  column  matrix  of  coordi¬ 
nates  called  principal  (or  generalized)  coordinates18.  Substituting  this  equation  into  Equa¬ 
tion  (El)*  and  premultiplying  by  the  transpose  of  [  <£]  results  in 

[0]7U/][<£]|  q(t)  i  +  [<£]  r(C]  [</»]  I  q(t)  i  +  U>]T[K]  [<f>]  i  q(t)  I  =  F{  t) !  • 

Since  the  modes  are  assumed  orthogonal  with  respect  tc  inertia  and  stiffness,  the  generalized 
inertia  and  stiffness  matrices  become  diagonal  (see  page  132  of  Reference  18).  Since  the 
damping  matrix  [<?)  is  proportional  to  [M],  [tf],  or  both  (Equation  (E2)  ),  it  also  results  in  a 
diagonal  matrix,  i.e., 

[^]r  [*/}[<£]  = 

t^r[ci[<^i  = 

where  Mp  K  =  oPjMp  and  C j  are  the  generalized  mass,  stiffness,  and  damping,  respectively. 

Hence,  substituting  these  quantities  into  the  previous  equation  of  motion,  we  get  the 
decoupled  equation  of  motion 


'Recall  that  Equation  (El)  includes  viscous  damping. 
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r-^  I  q  ( t )  !  +  t-Cj -J  I  q  (t)  i  +  !?(<)!  =  [«]  T\F(t) ! 

Thus,  if  viscous  damping  is  used,  then  by  means  of  the  unit  impulse  excitations  and  the 
Laplace  transform  as  in  the  derivation  of  Equation  (E7),  the  admittance  matrix  is  found  from 
the  foregoing  equation  to  be 


where  p  and  A  are  constants,  co/  is  the  ;th  natural  circular  frequency  of  the  plate,  and  each 
column  of  [<£]  is  a  normal  mode  !  The  term  M.-  is  the  ;th  generalized  mass  defined  by 

Mj-  \<f>(,)}T[M]\<f>(i)}  (E9) 

Since  u,-  and  <fy(and  therefore  [</>]  and  [(f>]T)  are  solutions  to  the  classic  eigenvalue 
problem  and  [M]  is  a  known  quantity,  then  for  each  value  j,M  . is  computed  from  Equation  (E9) 
as  a  number  lying  along  a  diagonal18  and  H(ico)  is  obtained  from  Equation  (E8).  Note  that  in 
Equation  (E8)  the  quotient  of  a  scalar  quantity,  i.e.,  1/  [Af/( -&>2  +  i  co(p  +  A  uj )  +  «?)]  , 

for  a  given  value  of  ;  is  quite  easily  determined  by  a  computer  for  a  range  of  «’s.  Hence 
evaluation  of  the  product  of  the  three  matrices  in  Equation  (E8)  is  generally  much  simpler 
(requires  less  computer  time)  than  the  evaluation  of  the  inverse  matrix,  Equation  (E7). 

If  structural  damping  is  used  as  in  Equation  (E4),  then  since  ojf  M j  =  Kp  the  quotient 
in  the  first  of  Equations  (E8)  becomes 


- o2 Mj  +  <Oj2  Mj(  1  +  ig)  +  igco2  +  a2  ) 


so  that 


(W(f<a)l 


2  •  2 
+  igo):  +< 


(structural  damping) 
(E10) 


Equations  (E8)  or  (E10)  are  decoupled  admittance  matrices  and  do  not  involve  matrix 
inversions, 
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f 


The  admittance  function  will  now  be  used  in  determining  the  response  to  turbulence 
excitation  which  is  treated  as  an  ergodic  stationary  random  process.  For  such  processes  the 
relationship  between  response  cross  spectral  density  and  pressure-loading  cross  spectral 
density  of  the  turbulent  boundary  layer  pressures  is  obtained  as  follows: 

As  in  the  derivation  of  H(i(o),  the  displacement  of  point  q  of  a  plate  to  a  pressure  p- 
applied  over  an  area  A  at  point  j  is  (see  Figure  19) 

oo 

Similarly  the  displacement  at  point  r  due  to  pressure  at  point  k  is 


«,*(<)  =  Pk(t^)hkr(t-gdt' 

•'-no 


The  cross  correlation  of  the  two  responses  is 


AjAk 


LX  rfXLl 


dt 


*{<f,>  *.*(*,)  #,#2 


A,A 


where  the  order  of  the  integrations  has  been  interchanged  and  =  t  -  t'x ,  f2  =  t-  t'2  +  T  and 

H  is  the  cross  correlation  of  the  pressures  at  points  j  and  k. 

P]k 

The  cross  spectral  density  of  the  two  displacements  is  the  Fourier  transform  of  this 
quanti  ty 


<t> 


* 


■  x  1  f  ' 


R 


*'qK 


-  to)  r 

(r)  e  dr 


-  A,Ak 


Vr"f2+*i)rfre 


—  OO 


)« 


j 
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-  V*%(£<yU;f  (*")  •  Hrk(ic°) 

where  $  is  the  cross  spectral  density  of  pressures  ;  and  k  and  H!*  is  the  complex  conju- 
"/A  9 

gate  of  Hjq. 

When  all  points  of  the  structure  are  loaded,  the  displacement  at  point  q  is  the  sum  of 
the  components  resulting  from  each  load 

n 

y  t)=  i8>q(t) 

/«  i 

where  n  is  the  number  of  load  points.  The  cross  correlation  of  two  displacements  when  all 
points  are  loaded  is  therefore 

Rs  (r)=  2  1  R  ■  k(r) 

9'  /  =  1  A  =  1  S/Si 

and  the  corresponding  cross  spectral  density  function  for  displacements  at  q  and  r  is 

n  n 

4>y(^)  =  2^2  AjAk  <t>pjk  (ico)  Hiq*  (ia) 
which  can  be  expressed  conveniently  in  matrix  form  for  all  pairs  of  node  displacements* 

[yto)  ]  =  IH*  (ia>)  ]  [  <j>p(ia>)  )  [H{ico)  ] T  (Ell) 

where  [<£g(i <u)]  and[(<£p(i«)]  are  cross  power  spectral  density  matrices  of  displacement  and 
pressure,  respectively.  The  diagonal  elements  of  the  resulting  matrix  in  Equation  (Ell)  are 
power  spectral  density  functions  of  the  displacements.  The  off-diagonal  terms  are  displace¬ 
ment  cross  power  spectral  density  terms. 

Now  substituting  Equation  (E3)  into  (E8)  we  get 


‘The  matrices  in  Equation  (Ell)  are  easily  expanded  to  yield  the  foregoing  summation. 
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=  [0][r/;-j  -  *t~£^i][<£]7’  (E12) 

whore 

2  2 

J_  at  _ 

'  'lfl  (toj  -  (o2)  2  +  (2  £ j  0)j  6j)  2 


1 

'  M,  -<o2)  +  (2tJ<oju>)2 

Both  pressure  and  deflection  cross  power  spectral  density  matrices  are  Hermitian  matri¬ 
ces  which  can  be  decomposed  into  a  real  symmetric  matrix  (co-power  spectral  density)  LC (co)  ] 
and  a  skew  symmetric  imaginary  matrix  (quad-power  spectral  density)  t[@(«)] 


t*p(*)]-[Cp(«)]+itep(«)]  (El  3) 

[^ig(  <u)  ]  =  [Cg(  w)  ]  +  )  (E14) 

Pre-and  post-multiplying  by  we  have 

[*F(©)]«[<7F(®)]  +  f[QF(«)]  (El  5) 


where 


[«»F(<U)]  -  c — il-J  l^p(«)l  C — /l— J 

u?F(<a)]  =  icp(6>)]  r-4-j 

icF(«)i  =  c — -4-j  tcp(«)i  r~M^j 

Substituting  Equations  (E12)  and  (E15)  into  Equation  (Ell),  we  get  (noting  that  [</>], 
[<£l  T  are  real  quantities) 


(tw)l  =  [  Cg (w) ]  +  i[Q^(ct))  ] 


■  [*'  [' 


r-o-j  -he] 


l]  [0]  ICF(«)  +  iQfia)]  .Jty][[  D  l-#[  E  ]][^)rj 


==  10!  [ L  D  1  +  i[  E  jJ[^]r[C’F  +  iQF]  [<£]  D  ]  -  i[  E  ]][<£]: 
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The  equation  consists  of  the  sum  of  eight  terms.  Consider  one  of  these  terms  [0]  f  — J 
[$]  (03  [0] T .  For  convenience  we  treat  the  term  as  a  3  x  3  matrix.  The  results 

can  then  be  extended  to  an  m  x  m  matrix. 

Thus 


,Dl  0  0 


fD1  0 


[0]  r-0-J  [0] 7  -  0  (  0  D7  0  ]0r-  [0]  0  0  0  [0] T  + 


0  D. 


kO  0  0/ 


fo  0  0\  /0  0  0 

[0]  (  0  D2  0  )[0]r+[0]f  0  0  0  j[0]r 

0  0/  \0  0 


0  0  /o 

Dx  [0]  0  0  0  [0]r+fl,[0]  I  0 

[0  0  0  \o 


[0] 


If 


[0] 


^12  ^13 

^21  ^22  ^23 

^31  ^32  ^33 


(*<»>  0<2>  0<3>) 


where 


then 


^11  ^21  ^31 

_ 1 

-©^ 

1 

[0]r  » 

012  022  ^32 

II 

_^13  ^23  ^33_ 

><3i  _ 

281 


Hon<e 


1 


Ain  $i2 

i oi  r/;-J \o\  T  =  i\  [  <t>2 1  $ 

i$ 


31 


$11  $21  *31’ 

$22  $32  I  + 


13 


$i 


'21  “3 1 

"*  2  2  $32 

<i- 


13  ^23  *33.' 


$11  $21 
$221 

$31  $21 


$11  $31 

$21  $31 

$321 


$11  $12  $13 


’)  + 


l\  j$(1)J  [$(1) 


+  Dn 


<2>)  {^2)J  +  D3  {<£(3)j  {^(3) 


$u;  $ 


which  is  the  sum  of  dyadic  products.*  Hence 


•We  have  shown  that  if  A,  B,  C,  D,  E,  F  are  vectors  and  a,  b,  c  are  scalars  in  a  diagonal  matrix  then 
(ABC)  Z?  )  =  aAD^  +  bBE^  +  cCF^.  And  tho  dyadic  product  p.  of  two  vectors 


fP\  qi  p i  h  P\  V 

is  p  •  q‘  =  (<?j  ?2  ?3J  =  (  P2  91  P2q2  P2q3  }•  The  dyadic  product  should 

\P3  h  P3q2  P3q3/ 


not  be  confused  with  the  inner  product  of  two  vectors  p  •  q  =  Pj  ?i  +  ?2  ?2  +  ^3  %  =  fP}  P2^3^|  q2  )  =  p?  .  q 
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[<t>]  r-pa  <f>  )ticf)  m  f<£(1)i  \<f>ll)\T+D2\<t><2)\  t^2>ir+/;3t^3>it0(3>ir) 

.(CF1  (d,  I <f>“HT  +  D2  l^(2)i  l<£(2)!r  +  £>3I<£(3)I  |*<3>|T) 

3  3 

=  2  2  DjDKCJ'ik)(o>) 

i  =  l  *  =  l 

where  [c//A)  («)J=  1^  I  \<f>  ^>HT  [CF(*>))  \^k)\  \T 

Extending  these  results  to  an  m  x  m  matrix  or  summation  and  treating  the  remaining 
seven  terms  of  [0g(f<u)  ]  in  a  similar  manner,  we  get 

(<l)g(r<u)]  =  [Cg  (&>)]  + f[$g(tu)] 


where 

tC></*)  (®)1  -  f^0)i  [CF(a>))  !<£<*>!  I<£(*>l  T 

[ QFi,k)  («)]  =  1<£(/)I \<f>{i)\ t[Qf(co))  \cf>(k)\  \^k)\T 

The  summation  in  Equation  (E16)  is  over  m  normal  modes. 

Equation  (E16)  can  be  approximated  for  lightly  damped  systems.  The  cross  product 
terms  (;  ^  k)  Dk,  EjEk,  and  DjEk,  which  involve  coupling  between  modes,  are  considered 

insignificant  for  small  damping.  Neglecting  these  terms  and  since  [@F(‘‘)]  =  0  due  to  the  skew 
symmetry  of  [Q f] ,  whereas  [CF(,°]  =  [C F  ]  T  due  to  the  real  symmetry  of  [Cf]  (this  will  be 
shown  later),  we  have 
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“UjjMl-  ^  {Df +Ef)\${l)\\<fi1)\T CF^^n\^’)]iT  (E17) 

/=  l 

The  average  value  of  (he  product  of  two  distinct  responses  at  locations  q  and  r  is 

(to) ^ u> 

<tr 

where  h  &  f  is  called  the  joint  deflection  moment  of  the  two  responses  q  and  r  and  denotes 
the  space  cross  correlation  (zero  time  delay)  of  the  two  responses.*  The  joint  deflection  mo¬ 
ments  for  all  responses  can  be  considered  at  once  and  written  as  a  matrix  integration 

[<t>s(o>)J  doj  (E18) 


where  the  elements  ofj^S  j  are  joint  deflection  moments  for  all  pairs  of  structural  node 
points.  The  diagonal  elements  are  mean  square  values  of  the  deflections,  and  the  off-diagonal 
terms  are  time  averages  of  products  of  deflections  at  different  node  points.  For  small  un¬ 
coupled  damping,  [<£g]  is  given  by  Equation  (E17)  and  the  response  is  predominantly  narrow- 
band  occurring  in  the  regions  of  the  natural  frequencies.  If  broad-band  excitation  is  assumed, 
the  variation  of  the  excitation  cross  spectral  density  is  small  compared  to  the  response  vari¬ 
ation  near  the  natural  frequencies  and  the  force  cross  power  spectral  density  can  be  treated 
as  a  constant  near  each  natural  frequency.  Thus  we  have 


[sqSr]-  £  l0(/)i7’[C,F(w;)]i^</)il9i(/)l  T  f  ( Df  +  E?)do  (E19) 

L  J  /  -  i  Jo  ' 

For  small  damping,  and  from  the  definitions  of  D]  and  E-  ,  this  equation  is  evaluated  as  (see 
page  63,  Equation  (2.14)  and  page  72,  Equation  (ii)  of  Reference  18). 


[5^1=  £  \<f>iii\TlCF(oj)]  l<£(/)i  !^(/)!  T~— -  (E20) 

J  ,=  1 

The  Maestrello  mathematical  model  for  the  space-time  cross  correlation  of  the  fluctu¬ 
ating  turbulenco  boundary  layer  pressures  measured  in  broad  frequency  bands  for  Mach  num¬ 
bers  ranging  from  0.52  to  0.57  i0'  (see  Equation  (B9)  and  the  corresponding  notation  as  well 
as  Equation  (E23)  below) 


•For  )  t  K,  evaluation  of  the  joint  responses  is  given  in  Appendix  II  of  Reference  37. 
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e-\r\/e  3  Annn 

p({,T)\T)  -  -  1 - 

3  4;_  Ll  Kl+BH({-Ucrf  +  ri*) 
.  K 

n  =  1  n 


(E21) 


where 


-1  <  P  (£.??;  r)  <  1 


£  -  =  K2  =  9.56 

n  =  1  n 

and  the  mean  (broad  band)  values  of  6  as  a  function  of  Mach  number  M  is  given  in  Figure  16 
of  Reference  34*;  see  also  the  method  given  later  in  this  Appendix  for  determining  computer 
program  output. 

The  corresponding  normalized  pressure  cross  power  spectral  density  is 


1  C  °° 

n(t,i};i(o)  =  —  p(€,r)‘,r)  e~l0Tdr  ;  (0  ^  w  <  °°  ) 

"  J-CC 


(E22) 


1  C°° 

=  —  pita's)  e~l0Tdr,  (-»  £  «  ^  +«  ) 

2 


(multiplying  the  second  of  Equations  (E22)  by  2  yields  the  cross  power  spectral  density  in  the 
positive  frequency  domain). 

It  has  not  beeu  possible  to  solve  Equation  (E22)  using  p  as  defined  by  Equation  (E21). 
However  a  solution  ispossible  if  we  take  an  alternate  approach  which  makes  use  of  the  fro- 
zen  turbulence  model  known  as  the  Taylor  hypothesis,  i.e. ,  assume  space  and  time  variations 
are  interrelated  according  to 


M  _  Jii 

6  Uc9 


(E23) 


Thus  if  the  time  decay  is  described  as  a  spacial  decay,  the  Maestrelio  space-time  corre>.tion 
function  p  has  the  form 


♦Measured  values  of  0  for  frequency  band  width  centered  at  1200  and  4800  cps  are  also  plotted  in  Figure  16 
of  Reference  (34). 
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-m /'jco 


3 


pUiiu)  = 


AnKn 


9.56 


K\  +  B2  [(e-t/c r)2  +  J72], 


=  s  pn(^'?;r) 

n  =  1 


whore 


p„(&»?;0  = 


4  C 

n  /i 


-m/t/c0 


).56j^+B2[(^-y£r)2  +  ,2]j 


Then 


(E24) 


(E25) 


3  1  r  °° 

n(€,r)\ia>)  =  s  —  pn(^n'iT)e  l(ordT  (0  <  <u  <  +  oo) 

n  =  1  n  J—oo 

and  the  nth  component  of  the  cross  power  spectral  density  is 

If00 

nn(£;,ti;i(o)  =  — I  e~  ,cor dr  (0  <  w  <  +») 

^  oo 

Substituting  Equation  (E25)  in  (E27)  and  putting  Equation  (E25)  in  the  form 

-I£|/t/c« 

1 


(E26) 


(E27) 


A  K  e  c 

n  n 


Pn 


9.5QB  U, 


2,i  2 


B2V 2 


transform 


f-fl 


f  I 


yields  upon  taking  the  Fourier 


flnU;,Ti;ioj) 


KKn  e 


Vcd  BUC 


[*„2*»v] 


1/2 


itof; 


9.56  BUc[K2n  +  B2r,2] 


1/2 


(0  <  w  <  +»)  (E28) 

Dimensionless  forms  of  nn  are  plotted  in  Figures  19  and  20  of  Reference  34.  The  three  com¬ 
ponents  defined  in  Equation  (E28)  are  used  in  Equation  (E26)  to  define  the  fluctuating  pres¬ 
sure  loading  function. 
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From  Equation  (B7)  we  have 


n  (co)  = 


*P(»)U 


and  by  definition 


f00  u  r 

I  \[(o})du>  =  1= - 1 

Jo  r2  8*  Jo 


u  r  ,  v 
l8  P  *6' 


Hence 


V")  -1 

n(&>)  =  -= —  or  $>  (&>)  =  p2  IT(w) 

o  r 

V 2 

but  in  accordance  with  the  experimental  results  shown  in  Figure  14  of  Reference  34,  [( p 2) 

/ r w)  =  K(M)  is  a  function  of  the  Mach  M  so  that  p2  =  K2  r 2  .  Thus,  the  power  spectrum  in 
ncndimensional  form  is  described  by: 

<VC°)6'  P*H(o)U  n  (a)UK2  3  -K  n(,<t)8*  /  U) 

- - - =  - y -  =  £  A  e 

' l 8*  5 

(see  Equation  (B7)  and  note  that  Figure  2  of  Reference  15  and  Figure  2  of  Reference  39  are 
equivalent.);  however,  see  Appendix  E2  with  respect  w,  the  value  K  used  in  practice. 

Hence,  using  Equation  (E28)  and  noting  that  1/9.56  =  0.105 

(&?;«)  =  v2  n (£>?;*g>) 


1  £  1  _ 

~VJ>  Uc 


w  c  c 

- 0.105  2 


3  AnKne  C 


(K2^B2tj2) 


(0  <  <y  <  +  oo) 

Figure  3  of  Reference  34  shows  graphs  of  this  function. 


(E29) 
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The  complex  pressure  cross  power  spectral  density  describes  pressure  loading  as  a 
continuous  function  of  separation  distances  in  the  x-  and  y-directions.  Pressure  loads  from 
boundary  layers  are  small  in  spacial  scale.  The  load  can  change  appreciably  within  a  few 
inches  or  even  less.  Figure  21  of  Reference  (34)  shows  the  variation  of  cross  power  spec¬ 
tral  density  over  an  element.*  These  rapid  variations  cause  problems  in  using 
to  define  a  loading  matrix  for  use  with  finite  element  structural  methods.  Matrix  finite  struc¬ 
tural  analysis  methods  generally  assume  that  the  pressure  loads  vary  slowly' over  the  distance 
of  one  element,  i.e.,  that  approximately  constant  pressure  acts  over  the  element.  When  this 
is  true,  pressure  at  the  node  points  can  be  multiplied  by  area  to  approximate  forces  on  the 
elements.  But  when  the  loads  vary  rapidly  over  an  element,  as  do  boundary  layer  pressure 
loads,  the  method  is  invalid  since  it  results  in  large  overestimates  of  the  total  forces  on  the 
clement. 

This  rapid  variation  causes  problems  in  trying  to  define  a  matrix  of  cross  power  spec¬ 
tral  densities  acting  on  pairs  of  finite  element  node  points;  proper  application  of  the  matrix 
would  require  a  very  fine  grid  of  elements.  Hence  an  alternate  method  has  been  developed  to 
correctly  calculate  the  cross  power  spectral  density  of  net  forces  acting  on  pairs  of  finite 
structural  elements.  Terms  of  this  type  are  gathered  into  a  cross  power  spectral  density 
matrix  that  is  compatible  with  the  structural  idealization;  the  number  of  elements  chosen  is 
such  that  the  desired  number  of  modes  can  be  adequately  resolved.  The  infinitesimal  forces 
are  then  summed  to  calculate  the  net  force  cross  power  spectral  density  on  finite  element 
pairs,  i.e.,  the  elemental  loads  are  determined  by  summing  the  contribution  of  each  infini¬ 
tesimal  area  within  an  elemental  pair. 

We  now  evaluate  the  force  cross  power  spectral  density  and  construct  matrices  for  its 
real  and  imaginary  coefficients. 

Consider  the  geomttry  of  a  pair  of  finite  plate  elements  (Figure  20)  and  tne  more  de¬ 
tailed  drawing  of  ^-direction  separation  distances  (Figure  21);  similar  relations  hold  for  q- 
direction  separation  distances.  Let  and  q^  be  the  dimensions  of  the  finite  elements  in  the 
x-  and  y-directions,  respectively.  The  area  of  the  structure  represented  at  each  node  is 
(£0  Vq)-  The  separation  distances  between  the  nodes  are 

£  -  (*/-*/)  =  »</£<> 
ri  “  (Vj  ~  Vi)  -  Wi/fy 

The  infinitesimal  normalized  cross  power  spectral  density  of  the  net  forces  acting  on  the 
infinitesimal  areas  dA{  and  dA-  (which  are  on  the  finite  areas  Ai  and  Aj  associated  with  the 
node  points  ,  i.e.,  nodal  areas)  is 


•In  Mach  0.52  (8*  =  0.155  in.)  flow  in  the  Boeing  boundary  layer  facility,  the  990-cps  frequency  cross  power 
spectral  density  varies  by  a  factor  of  more  than  ten  between  pairs  of  points  on  an  0.75-in. -long  finite  element. 
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* 


d(nF')  -  nl(x'  -  xj) ,  (yj-  yj) ,  i«]  (dxj  dyj)  (dxj  dyj) 

where  77(  (xj  -  xj),  (yj-  yj)  ]  is  the  normalized  pressure  cross  spectral  density;  (xj,  yj)  and 
(xj,yj)  are  points  on  the  i  th  and  j th  elements,  respectively,  whose  elemental  areas  are 

dAi  =•  dxj  dy'.  =  d£t  drji 
dAj  =  dxj  dy’.  =  d£.  dy. 

The  net  force  cross  power  spectral  density  on  the  (i,j)  pair  of  nodes  is  then 

nF. .(»»)■  J  j*  n  ((xj- xj)(yj-yj)iw)dAjdAi  (E30) 

Ai  Ai 

where  Ai  and  Aj  are  areas  associated  with  the  i  and  j  nodes. 

Figures  19  and  20  show  that 


f '  =  (*/  “  xj)  =  nijt o  +  (f/  -  ti)  5  (m  ntj$ o 
rj '  -  (yj  -  yj)  =  «,/»„  +  (»?/  -  rt  j) ; 

where  n^-  and  m  .  are  the  integral  numbers  of  incremental  separation  distances  in  the  a;-  and 
y-directions,  respectively. 

Hence  the  force  cross  power  spectral  density  of  the  net  forces  acting  on  the  ( i,j )  pair 
of  nodes  is 


% 

f  n[(f+^/-^l),  (r)  +rjj  -  i Ji);  iia]  d^  d^  dy.  dy  ( 

to  J~fo 

2  2  (E31) 


n 


F .  ,(*w) 
»/ 


■1  I  £ 


Now  rewrite  Equation  (E28)  using  the  variables  of  Equation  (E31),  i.e.,  replace  the 
separation  between  nodes  t;,y  by  the  separation  between  infinitesimal  areas  ~  £,•> 
y  +  y t  -  y t  respectively.  Then 
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nn[(£+£;--£t),  );**>]= 


AKn 

n  n 

9.56  BU„ 


€+£j-tA\  (  - 

—d —  -  <^4-0 


-\irc[K2n+B2(r,+r,’-%)2] 

-  _T7F 
[*’«  +  B2(rj+r,l  -  77t)2J 


(0  <  Cl)  <  oo  ) 


is  the  nth  component  of  the  pressure  cross  spectral  density.  Equation  (E32)  shows  that  the 
integrand  of  Equation  (E31)  is  divided  into  parts  so  that  the  integration  is  over  (l)r]  only, 
(%)£  only,  (D  constant.  The  first  two  parts  are  now  discussed. 

The  integral  of  (T)  in  Equation  [E32],  which  involves  rj  integration  only,  is 


+J?o  +7?o 


11  1 


fo  ^0 


~\K2n  +  + 

[^»+fi2(9  +  'I,"'?/)2  U2 


dr),  drh 


To  generalize  the  analysis,  the  following  dimensionless  separation  distances  are 


defined 


-  *  "V" 

V  0.8Kn8*  "0.8 KnB* 


0.8  Kn8* 


a  = _ ^ 

^  i  n  ci/ 


0.8Kn  8* 


~  0.8Kn8* 


A  A 

y  =  7/  -  ?,■ 
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ot  <o 


Mnco 


HU, 


0.85 


m: 


-%  "Vo 
2  2 


u8* 

IT' 


S,  Equation  (E33)  may  be  rewritten  as 


+  V0  +V0  ~  KnS 


2  e 


l  + 


j/  ’/-’A2 

r— ) 


1/2 


/S'. 


1  + 

L.  "n 


4  ,»  (.  *  ^)2 

ft2  \  V  / 


1/2 


but 


fi2 

*F 


(— )2 

VO.  85*/ 


(0.8A'nS*^)2  =  $2 


A  A 


V;-V^  >!/-*?<  y 


A  A 

V  V 


dT,jdrli  =  (O.SK n8*)2  dr\j  d^ 


and  the  variables  of  integration  are  transformed  by  use  of  the  Jacobian 


dVi  dlj 


^(Vj.  V;) 


dy  = 


4;  4,- 

!!:  !!l 

<?y  dy 


1  0 

-1  1 


dy  d-qi  =  dy  dvt 


dy  dyi 


Hence  dr\}  dri i  -»  (0.8A'n5*)2  dy  d 5^.. 

For  the  limits  when  »/{.  ®  +  —  ,  7 f  =  +  - — — — -  =  + 


Vo 


A 

Vo 


=  + 


0.8 KnS*  ~  2(0.8 Kn8*)  ~  2 


.  Similarly 
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the  upper  and  lower  limits  of  rj j  are  ±rf0/  2  respectively.  Hence  for  the  y(  =  jf  -  rj .)  vari¬ 
able  of  integration,  since  ^remains  as  a  variable  in  the  inner  limits,  the  inner  limits, 

the  inner  limits  are  y  =  +  UlL  _  £ 

~  2 

Hence  the  previous  integral  in  terms  of  the  new  coordinates  y  ,  77 .  i s 

f7  .[7-*]  1  +(i?+  y)2]1/2 

(0.8K n8*)2  I  - -  dydl 

JloJp  KnliHl  +  y)*)l/2 

Now  let 

/  A 

y  =  v  +  y 

dy'  =  dy 

£  A 

,  %  *  ,  % 

when  y  -  ± - y,-,  y  =  +  —  +  y  -  yi ,  hence  the  equation  becomes 


fa*  J 

“S‘)2J  sir-?  i “ - 

2  L  2  *. 


(0.8  K 


'x2i1/2 


Since  y  is  a  dummy  variable,  we  let  y'-*  y  so  that  the  equation  and  symbols  conform  to  those 
in  Reference  34.  The  integral  is  then 


Equation  (E33)  or  its  equivalent  Equation  (E34)  cannot  be  integrated  in  closed  f"rm. 
For  the  general  case,  a  numerical  approximation  of  this  integral  is  necessary.  For  the  spe¬ 
cial  case  of  the  integrand  approaching  small  values  within  one  incremental  separation,  a 
closed-form  approximation  is  possible.  Thus  for  S  and  y^,  not  too  small  and  assuming  y  -  0, 
the  integrand  of  Equation  (E34)  is  a  rapidly  decaying  function.  That  is,  we  assume  that  the 
sphere  of  influence  of  all  pressure  points  on  the  ith  finite  element  does  not  extend  beyond 
the  element;  the  approximation  is  good  when  the  boundary  layer  thickness  is  small  compared 
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When  the  Bessel  function  approximation  is  used,  it  is  assumed  that  the  force  cross 
power  spectral  density  is  approximately  zero  for  all  (i,i)  pairs  of  finite  elements  except  pairs 

(t  ,t). 

The  integral  of  (g)  in  Equation  (E32)  which  involves  £  integration  onl.,  must  be  handled 
as  two  special  cases 

Case  I:  £  =  0 
Case  II:  £  >  0,  £  <  0 

When  £  ■  0,  the  region  of  integration  is  divided  into  two  regions  to  properly  represent  the 
function  with  absolute  value  sign.  The  >  0  and  £  <  0  cases  have  been  reduced  to  a  single 
expression  which  describes  both  cases. 

Now  rewriting  Equation  (E29) 

>»?;*«)  =  Pz  n  (f,» y,i(o)  (E29) 
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Similarly,  using  II ( ico )  as  defined  in  Equation  (E31) 
i; 


<D  ,,  ( ico )  =  p2  II  y  ( ico ) 

‘/  ‘1 


where  i  and  ;  are  node  points  with  incremental  separation  distance  in  the  x  and  y-directions 


such  that  £  =  n[7£0  ,  p  =  mijrjQ  ,  where  i hj 


and  m 


nij  a«d  mi, 


are 


integers  so  that  all  nodes  are  separated  by  increments  of  length  £0  and  in  the  asdirections, 
respectively.  But  the  force  power  spectral  density  is  the  sum  of  three  spectral  components 
as  defined  by  Equations  (E31)  and  (E32) 


where 


(*«)  =  p2  nF  (ico)  =  P2  1  n^.  (ico) 

*1  ■;  [_„=1 


(E37) 


+^o  +^o  +1^o  +Tlo 


AnKn  f  2  r  2  f  2  /*" 

nF(n)*/M  =  9.56 Bujt  J_a  J_„„  J- 


*o 

2  2  2  2 


■  W  [Kl  +  0  +  *?/  -  ’?,>*] 


1/2 


\Kl  +B2(mij%  +  ^-r?;)2]1 


/  2 


(0  <  <  +  OO  ) 


dJl/d^dffd^ 

(E38) 


The  integral  of  Equation  (E38)  is  determined  as  discussed  above.  Final  equations  for  the 
power  and  cross  power  spectral  density  of  force  acting  on  node  points  of  a  structure  are  sum¬ 
marized  below  41  (because  of  the  presence  of  the  absolute  value  signs,  evaluation  of  the  in¬ 
tegrals  requires  separate  consideration  of  the  various  domains;  see  statement  preceding 
Equation  (E29).* 


♦Correction  of  the  boundary  layer  load  equations  originally  presented  in  Reference  34  were  made  by  the  authors 
of  the  present  report.  These  corrections  as  well  as  certain  other  minor  modifications  were  adopted  in  Reference 
41  and  the  correct  final  results  are  given  here. 
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FORCE  POWER  SPECTRAL  DENSITY  (n,7  -  »i;  -  0) 

(Py;.  (f<j)  =  <t>  (<>j)  *  A '  P{(0) 


(w)  *  K'P( (o)  <1>  ;  Qp  (w)  *  0 


(E39) 


FORCE  CROSS  POWER  SPECTRAL  DENSITY  (n|;  +  0,  ^  0)* 


«t>..  (fw)  =  <t>(n.  ,  m.  ;  ico)  =  CF  (a>)  +  iQF  (a) 
r  it  ‘i  i]  ‘i 


(E40; 


FORCE  CO-POWER  SPECTRAL  DENSITY  (n  t  0,  m..  /  0) 


A  A  A  -  |  n  ■  a  £n  i 

Cp  (w)  =  Cp(nir  mtli  »).  K'C  *  e  '  *'  *° 


(E41) 


FORCE  QUAD-POWER  SPECTRAL  DENSITY  (n,  /  0,  mif  j  0) 


QF  (°)  =  QF(nij’mip  u)  =  K'Q<t>  e 


A  A  A  —  I  n  rt  /■ 

ron  *  1  */ 


where  A"  -  constant  *  P2j1q/ 4.78  UCB2  . 
PRESSURE  POWER  SPECTRAL  DENSITY 


Sotting  £  «  7  =  0  and  lotting  (A'(m)r(w)]2  *=  p2  in  Equation  (E29)  and  using  the  fore 
A  . 

going  equation  for  A',  we  obtain 


<t>  (w)  -  — - - 

P  9.56  BU. 


1  An  e 


e  n  «  1 


K'B  " 

-  2  e 

270  n  =  1 


(E42A) 


P(o>)  (powor  spectral  density,  dependent  on  £) 


( a 2  +  b2)2 


I  a£0(a2  +  b2)  +  (A2  -  a2)[l-e  cos  (6£0)] -2 ab  e  ^°sin(6£0)l 


<t>  =  that  part  of  Equation  (E37)  with  dependence  on  7. 


•If  n(  =  0,  m  i  0,  then  Cp  ( u) )  =  K  P  Q  and  Qp  —  0. 
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There  are  two  options  for  'P  thus: 

1.  ?>(«)  (uses  Bessel  function  approximation) 


N  /*>Kn\  /*>K\ 

=  1  A»K»Y»[bU^)k 0(^7/  (Phi  Hat  Option  i) 


(E44) 


2.  <J>(cu)  (uses  numerical  methods) 


X  AnK n(mij,(o)  (Phi  Hat  Option  2) 


0  n  =  1 


—  —  -BTL  n  (m«/no  +  v^ 

1  2  I  2  e  c 

=j  J  - 

^0  ^0  U'2  +  B2(mijrlo  +  nf  -  7 ?I.)2] 


+  B2(-mi,n0  +  rl,-Vl')2] 

- - -  dr)l  (E46) 

~  o.  „  o-*  1  /  2 


2  2 


C ,  <2  =  those  parts  of  Equation  (E37)  with  dependence  on  f 

c  =  [  7  cos  (n»7 )  +  W  sin  (ni,  ) ]  (E47) 

(fl2  +  i2)2 

Q  =  4  W  cos  ( nt/  b£0)  -  V  sin  (n  b£Q)  ]  (E48) 


0  4  rv  H'’|rc°s(»i/f0}' 

Q  (a2  t  b2 )  2  l-H' -yJLsi 

< 


sin(n .  .^0) 


(62  -  a2) 

V  =ab  sin  (b^Q)  sinh  (a£Q)  +  - [l  -  cos  (6£0)  cosh  (a£0)] 

A 


( a 2  -  b2) 

- — -  sin  (6£0)  sinh  (of0)  +  ab[  1  -  cos  (&£„)  cosh(a£0)]  (E49) 

■  h  ’ 1  ■  r  (E60> 
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The  6’f.  and  Q F  matrices  are  each  constructed  separately  by  ordering  terms  to  match 
the  ordering  of  terms  in  the  structural  stiffness  matrix,  thus  making  the  final  expressions  for 
the  turbulent  boundary  layer  loading  function  compatible  with  the  finite  element  methods  of 
structural  analysis.  If  1  t  is  the  set  of  frequencies  with  Na  total  frequencies,  then  there 
are  N  matrices  and  (<?jp(wK))  as  follows  (for  simplicity,  the  F  subscript  is 

dropped  in  the  terms  in  the  matrices  so  that  C p  (<ok)  -»  CtJ  ( to k)  etc.). 


lQF((ok)  1  = 


11  (6,a) 

C12  (wa) 

C13 

1 

1 

o 

►“* 

a 

/— s 

0 

21  ( <°k ) 

<?22  (wA) 

C25 

K) 

-  -  -  c2m(o>k) 

31 

C32  (ojk) 

^33 

("a) 

- *3-W 

ml 

Cm2^0>k) 

^  m3 

(WA> 

- C  mm^k* 

11 

Q:2  (<ok) 

*13 

(“a) 

- ^ImK) 

to 

T 

Q 22  (wa) 

«23 

(«*) 

“  “  “  ^2ot(wa) 

31  K> 

^32  (“A^ 

^33 

(-a) 

- <?3n>A) 

l Qm2i»i)  ^>k) - (EM) 

Since  [4>f(i<u)  ]  is  Hermitian,  then  (*«)]  =  (to>)]  T  or  [Cy;.(wA)]  =  t Cp(a>k)]T] 

[Qf(  a>)  ]  =  —  [Q^(<y)]r  and  terms  in  the  matrices  have  the  following  properties 


Cf  fak)  ~  C p  .{<*> i)  -  ♦  ,(«*> 
ii  II 


(E53) 


Fi,(<*k)  “  CF  =  C(nij’  mi ,5  °>k)  "  C(ni,  '  ~  nji >  mij  =  -*»/<!«*)  (E5*) 


Qf  .(wa)  =  Qp.  (&>*)  =  o 

ii  n 


Qp.&i)  =  ~^F..((0k) 
II  II 


(E55) 

(E56) 


298 


Hence 


#(*>*) 

C 12 

1 

1 

1 

^3 

m 

012  (vk) 

Q(a)k) 

1 

1 

1 

3 

-W 

CO 

CN 

C> 

C2m(ak) 

[CF(ak)]  - 

G13 

C23  K> 

<&(<“*)  - 

• 

C3m(cok> 

C2  »(“*) 

• 

C3m(°)h) - 

<t>((0k) 

0 

$12  K> 

$13  ~  ~  ~ 

$1  m(<°k) 

-Qi  2(ak) 

0 

$23  (®*) - 

$2  «,(•“*) 

-Qu&k) 

"$23 

• 

0  - 

• 

$3»(«*) 

2Ql 

• 

-$2mK> 

• 

"$3  «.<"*> - 

0 

(E57) 


(E58) 


Diagonal  terms  of  C  F  are  the  collections  of  power  spectral  densities  at  all  node  points. 
Because  the  turbulent  boundary  layer  is  approximately  a  homogeneous  random  process  and 
its  thickness  changes  very  slowly  within  a  panel  length,  these  diagonal  terms  are  all  equal. 

The  [Cf(«)]  and  [QF{co))  matrices  are  symmetric  and  skew  symmetric,  respectively. 
The  diagonal  terms  of  the  [$>f(z<u)]  matrix  are  the  diagonal  terms  of  the  matrix, 

Equation  (E57);  hence  the  diagonal  terms  of  the  (eu)]  matrix  are  zero. 
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APPENDIX  E2  -  METHOD  FOR  DETERMINING  INPUT  DATA 


In  using  the  program  described  herein,  it  is  necessary  to  calculate  numerical  values 
for  boundary  layer  parameters  5*  ,  <?,  <p2>,  and  Ue .  41  These  parameters  and  the  associated 
quantities  required  for  their  calculation  are  defined  below.  The  definitions  assume  incom¬ 
pressible  flow  and,  therefore,  are  restricted  to  subsonic  conditions.  The  Maestrello  method 
(Appendix  B2)  may  be  used  for  computing  additional  input  data. 


Parameter 

c 


K 


M 

P 


<p2> 


9 

H 


X 


R'S' 


V 


c 


x 

Y 

8 

8* 

0 

P 


P 
r. . 


3 


Kr 


Description 

Free-stream  speed  of  sound  (in. /sec) 

Local  coefficient  of  skin  friction  (dimensionless),  equal  to 
0.059  R~l/5 

Ratio  of  rrr.s  fluctuating  pressure  to  local  wall  shearing  stress 
(i.e.,  <p2>  1/2  ^  =  3.1) 

Mach  number  of  the  free  stream 

Ambient  pressure  (psi) 

Mean  square  fluctuating  pressure  (psi)2,  equal  to  K2  7  2 

Dynamic  pressure  (psi),  equal  to  pU2  /  2 

Reynolds  number  based  on  a;  (dimensionless),  equal  to  xl!  /  v 

Reynolds  number  based  on  8*  (dimensionless),  equal  to  8*U /v 

Mean  convection  velocity  of  pressure  fluctuations  in  the  boundary 
layer  (in./sec) 

Distance  from  leading  edge,  or  nose,  of  body  (in.) 

Ratio  of  specific  heats,  1.4  at  sea  level;  equal  to  cp/ cv 

Boundary  layer  thickness  (in.),  equal  to  0.37  xR~ 1//s 

Boundary  layer  displacement  thickness  (in.),  equal  to  5/8 
Mean  eddy  lifetime  (sec) 

Viscosity  (lb  force  sec/in.2) 

Kinematic  viscosity  (in2/sec),  equal  to  p/p 
Density  of  free  stream  (lb  force  sec2 /in.4) 

y 

Local  wall  shearing  stress  (psi),  equal  to  Cy-g-—  CjP^M2 
Equal  to  9.56 


The  system  of  units  is  in  inch-pound-seconds. 
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Measurements  of  the  rms  fluctuating  pressure  <p2>  nondimensionalized  with  re¬ 
spect  to  the  wall  shear  stress  tw  show  considerable  scatter  (Figure  22).  Different  investi¬ 
gations  show  different  relationships  between  <p2>  1^2/rU)  and  Mach  number  M,  so  it  is 
difficult  to  predict  the  influence  of  Mach  number  on  the  rms  pressure.  It  is  assumed  here  that 
<p2>  l/2  / t w  has  the  value  3.1  for  all  subsonic  and  low  supersonic  Mach  numbers,  and  the 
model  for  the  pressure  power  spectral  density  function,  as  shown  in  Figure  23,  has  been  cho¬ 
sen  accordingly.  The  value  of  ( <p2> )  /  r^was  chosen  to  be  close  to  the  values  measured 

in  the  majority  of  the  investigations. 

In  the  frequency  domain,  the  convection  velocity  U  and  the  eddy  lifetime  0  are  func¬ 
tions  of  frequency.  When  the  overall  values  of  U  and  6  are  considered,  it  is  found  that  the 
effective  values  change  with  distance  from  the  reference  point.  Complete  representations  of 
Uc  and  6,  which  describe  the  spacial  variation,  greatly  complicate  the  boundary  layer  mode! 
and,  as  a  simple  alternative,  values  of  U c  and  6  are  chosen  for  a  particular  separation  dis¬ 
tance.  Corrections  to  V  and  6  are  proposed,  depending  on  the  frequency  range  of  interest 
for  the  particular  structure  under  consideration. 

The  mean  convection  velocity  ratio  L 1  c/ U ,  taken  as  the  asymptotic  value  for  large 
separation  distances,  is  not  very  sensitive  to  Mach  number  in  subsonic  and  low  supersonic 
flow.  A  value  of  Uc/ U  =  0.82  can  be  assumed  fir  subsonic  conditions  as  shown  in  Figure 
24.  This  figure  also  indicates  variation  of  subsonic  convection  velocity  with  frequency.  The 
mean  value  is  much  closer  to  the  low  frequency  value  than  it  is  to  the  high  frequency  value. 

The  mean  eddy  lifetime  is  shown  in  nondimensional  form  U c  6/8*  in  Figure  25  as  a 
function  of  Reynolds  number  based  on  displacement  thickness  8* .  The  variation  of  6  with 
frequency  is  shown  in  Figure  26  where  the  results  refer  to  measurements  by  Maestrello  in 
fully  developed  turbulent  pipe  flow.  The  data  in  Figure  26  show  that  the  low-frequency  eddy 
lifetime  will  be  longer  by  factors  of  1.5  or  greater  than  the  mean  lifetimes  predicted  in 
Figure  25. 
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Figure  22  -  Summary  of  Boundary  Layer  RMS  Pressure  Fluctuations 

This  figure  is  reproduced  from  Reference  41.  The  reference  numbers  indicated 
on  this  figure  are  those  given  in  Reference  41. 
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dimensionless  PRESSURE  PSD, 


Figure  23  -  Dimensionless  Pressure  Power  Spectra 
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dimensionless  characteristic  length  ve/s 


This  figure  is  reproduced  from  Reference  41.  The  reference  numbers 
indicated  on  the  figure  are  those  given  in  Reference  41. 
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REYNOLDS  NUMBER  Re x  10"4 
Figure  25  -  Characteristic  Length 


This  figure  is  reproduced  from  Reference  41.  The  reference  numbers 
indicated  on  the  figure  are  those  given  in  Reference  41. 
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EDDY  LIFETIME  6  IN  MSEC 


f 


0  0.2  0.3  0.4  0.5  0.6  0.7 

MACH  NUMBER 

Figure  26  -  Eddy  Lifetime 


Taken  from  Reference  14. 
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APPENDIX  E3  -  PROGRAM  IDENTIFICATION 


The  reader  is  referred  to  References  30,  37,  and  41  which  present  an  extensive  and 
detailed  document  of  the  computer  program. 


APPENDIX  E4  -  TEST  RUNS 


The  computer  printout  of  boundary  layer  input  data  is  shown  in  Table  8a.  Correspond¬ 
ing  sample  printouts  of  the  computed  force  co-power  spectral  density  matrix  generated  by 
these  data  are  shown  in  Table  8b  and  8c;  note  that  the  frequency  associated  with  one  sample 
differs  from  that  of  the  other  sample.  The  mean  square  displacement  and  displacement  power 
spectral  density  of  a  2024  aluminum  alloy  rectangular  plate  subject  to  this  excitation  are 
shown  in  Figures  27  and  28,  respectively.* 


*The  set  of  force  cross-PSD  matrices  defins  loads  on  a  structure  with  certain  geometric  characteristics.  Com¬ 
patibility  between  the  terms  of  both  the  loading  and  structural  flexibility  matrices  can  be  achieved  by  using 
some  of  the  structural  geometry  information  and  by  specifying  flow  direction  and  the  direction  of  cyclic  struc¬ 
tural  node  numbering  (see  page  25  of  Reference  41  and  References  36  and  37).  For  the  convenience  of  the 
reader,  a  description  of  the  numbering  schemes  used  to  achieve  compatibility  is  given  in  Figure  29. 


307 


B 


a 

o 


o 


TJ 

0> 


00 

U 

J 

03 

< 


OS  X 

Q  -e 


Q.  -T. 

£  >. 

*-> 

§ 

j  Q 

I*  2 

T3  O 
C  O 

s  a. 
m 


& 


—  ^ 
o  * 
o 


7) 


ScS 


a 

e 

as 


r*> 


K 

CM 

2 


2 

O 


W 

X 


3  9)  *H 
cn  U 
U  D  U 


n 


1  g 


308 


Table  8A  -  Turbulent  Boundary  Layer  Pressure  Loading  on  Finite  Structural  Elements 


TABLE  8  (Continued) 
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Table  8C  Kirst  Row  of  55  X  55  Matrix  of  the  Forcing  Function  for  the  Frequency  w  =  0.200000002  04 
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Figure  27  —  Computed  Displacement  Power  Spectral  Density  for  a  12.0*  x  7.0*  x  0.08-Inch  Aluminum  Alloy  Panel 

Obtained  at  38  th  renumbered  node— see  Figure  29. 
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Computed  Mean  Square  Displacement  for  a  12.0-  x  7.0-  x  0.08-Inch  Aluminum  Alloy  Panel 


5  13  10  20  1  5  27  20134  25U1  301*8  35|55  40|62  45|69  50|76  55|83 


3.501 

% 

i-  2.334 


2  10  7  i  17  12124  17  [31  22  38  27  4  5  32152  37159  42l66  47173  52180 


60 

66 

72 

69  50 

76  55 

83 

59 

65 

71 

68  49 

75  54 

82 

58 

64 

70 

67  48 

74  53 

81 

57 

63 

69 

66  47 

73  52 

80 

56 

62 

68 

65  46 

72  51 

79 

55 

61 

67 

64 

71 

78 

1.0  2.0  3.0  4.0  5.0  6.0  7.0 

MH 


9.0  10.0  11.0  12.0 


Nose  to  Figure  29: 

2 

The  area  (12x7  in.  )  of  the  rectangular  plate  used  in  obtaining  the  results  in  Figures  27  and  28  was  divided 
into  72  equal  rectangles  (1  x  1.167  in.)  numbered  consecutively  in  the  y-direction  as  shown  (1  through  72).  The 
constraint  conditions  for  each  of  the  six  degrees  of  freedom  (0.  9  ,  0  ,  8  ,  8  ,  8  )  are  given  for  each  node 

(free,  fixed  cr  attached  to  a  spring).  ’  31  ’  The  present  example  originally  had  91  nodal  points  as  shown  (1 
through  91),  but  only  55  of  these  nodes  (inner  nodes)  have  deflection  S2  frse,  which  represent  the  retained  free¬ 
doms.  These  (retained)  nodes  are  renumbered  in  the  y-direction  as  shown  (1  through  55).  The  sizes  of  the  solu¬ 
tion  matrices  are  determined  by  the  number  of  retained  freedoms,  55  in  this  example.  Thus  we  use  a  55  by  55 
matrix.  Note  that  the  heavy  line  (centerline)  in  Figure  29  is  the  line  along  which  the  responses  shown  in  Fig¬ 
ures  27  and  28  were  obtained. 

The  grid  size  (£q  x  rjg)  and  the  number  of  retained  freedoms  must  be  identical  in  Phases  I  and  II  of  the  com¬ 
puter  program  for  compatibility  to  exist  between  the  terms  of  both  the  loading  and  structural  flexibility  matrices. 
In  the  absence  of  compatibility,  only  the  force  co-power  spectral  matrices  (Table  8)  are  generated,  i.e.,  the  com¬ 
puter  will  not  generate  response  dcte,  e. g.,  Figures  27  and  28. 


Figure  29  -  Cyclic  Ordering  of  Nodes 

(Area  =  £0  x  r/Q  =  1. 167  in.2) 
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